Skip to content

Commit

Permalink
Attempt to fix seq notation
Browse files Browse the repository at this point in the history
I hope this fixes the last build issue with
math-comp/math-comp#790.  This change is only
needed in Coq 8.13; 8.14 and newer work fine without this change.
  • Loading branch information
JasonGross committed Apr 1, 2023
1 parent 663e182 commit 2af34cf
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion theories/PFsection3.v
Expand Up @@ -332,7 +332,7 @@ Lemma ext_clP cl1 th k v (cl1k := (cl1.1, (k, v) :: cl1.2)) :
/\ th1 =i [pred cl | if cl.1 == cl1.1 then cl == cl1k else cl \in th].
Proof.
case: cl1 => ij kvs /= in cl1k * => th_cl1; set th1p := [pred cl | _].
pose th1 := [seq if cl.1 == ij then cl1k else cl | cl <- th].
pose th1 := [seq (if cl.1 == ij then cl1k else cl) | cl <- th].
exists th1; first by elim: (th) @th1 => //= cl th' ->; rewrite -2!fun_if.
suffices Dth1: th1 =i th1p by rewrite Dth1 !inE !eqxx.
move=> cl; rewrite inE; apply/mapP/idP=> [[{}cl th_cl ->] | ].
Expand Down

0 comments on commit 2af34cf

Please sign in to comment.