baruchel
/
coqbooks
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update

This commit is contained in:
Thomas Baruchel 2023-10-30 19:34:21 +01:00
parent 49649d6fd0
commit d62a5752ae
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/subsequences.v
View File

@ -329,10 +329,10 @@ Proof.
assert ({a=x} + {a<>x}). apply I. destruct H.
rewrite e. rewrite subsequence2_cons_eq. rewrite <- IHl.
rewrite e. rewrite subsequence3_cons_eq. rewrite <- IHl.
rewrite subsequence_cons_eq. split; intro; assumption.
split; intro H. apply subsequence2_cons_l. apply IHl.
split; intro H. apply subsequence3_cons_l. apply IHl.
destruct H. destruct H. destruct H.
destruct x0. destruct x1.
apply PeanoNat.Nat.neq_succ_0 in H. contradiction H.
@ -342,14 +342,11 @@ Proof.
reflexivity.
apply subsequence_cons_l. apply IHl.
destruct H. destruct H.
destruct x0. simpl in H0.
symmetry in H0. apply nil_cons in H0. contradiction H0.
destruct b. simpl in H0. inversion H0. rewrite H2 in n.
contradiction n. reflexivity.
exists x0. inversion H. inversion H0.
split; reflexivity.
Admitted.
destruct H. destruct H. destruct H.
destruct x0. inversion H. rewrite H2 in n. contradiction n. reflexivity.
exists x2. exists x1. split. inversion H. reflexivity. assumption.
Qed.
Theorem subsequence_dec {X: Type}: