Skip to content
Snippets Groups Projects

fix the proof of find_uniq under mathcomp version 1.8

Closed Sergey Bozhko requested to merge RT-PROOFS/rt-proofs:master into master
1 file
+ 5
3
Compare changes
  • Side-by-side
  • Inline
+ 5
3
@@ -51,9 +51,11 @@ Section find_seq.
Proof.
intros.
apply /negP /negP /hasPn.
intros. apply find_uniql with (x:=x) in H;auto.
case (x0==x)eqn:XX;move/eqP in XX;last trivial.
rewrite -XX in H0. by subst.
unfold prop_in1. intros.
apply find_uniql with (x:=x) in H; last by assumption.
case (x0==x) eqn:XX; last trivial.
move/eqP in XX.
rewrite XX in H1; by contradiction.
Qed.
Lemma findP_in_seq:
Loading