Skip to content

Commit

Permalink
Merge pull request #155 from rmatthes/restorecompilationafterUniMathP…
Browse files Browse the repository at this point in the history
…R1893

two adaptations to ArToSig now being defined through foldr1_map
  • Loading branch information
rmatthes authored Jun 12, 2024
2 parents fb7ffc2 + 9ace96a commit e61c803
Showing 1 changed file with 2 additions and 4 deletions.
6 changes: 2 additions & 4 deletions Modules/Signatures/BindingSig.v
Original file line number Diff line number Diff line change
Expand Up @@ -202,8 +202,7 @@ Section EpiSignatureSig.
+ intros n ar HI m epi_ar.
intros M N f epif.
unfold ArToSig, Arity_to_Signature.
rewrite 2!map_cons.
rewrite foldr1_cons.
rewrite foldr1_map_cons.
apply isEpi_binProdSig.
* apply precompEpiFunc.
* exact epi_ar.
Expand All @@ -224,8 +223,7 @@ Section EpiSignatureSig.
+ intros n ar HI m epi_ar.
intros R epiR.
unfold ArToSig, Arity_to_Signature.
rewrite 2!map_cons.
rewrite foldr1_cons.
rewrite foldr1_map_cons.
apply preserveEpi_binProdFunc.
* apply productEpisSET.
* apply precompEpiEpiFunc.
Expand Down

0 comments on commit e61c803

Please sign in to comment.