This commit is contained in:
Thomas Baruchel 2023-11-01 18:31:41 +01:00
parent 68869f5e11
commit 444d3a6550
1 changed files with 9 additions and 0 deletions

View File

@ -524,6 +524,15 @@ Proof.
Qed.
Theorem subsequence0_eq_def_1 {X: Type} :
forall l s : list X, subsequence3 l s -> subsequence l s.
Proof.
intros l s. generalize l. induction s; intro l0; intro H.
apply subsequence_nil_r. destruct H. destruct H. destruct H.
apply IHs in H0. destruct H0. destruct H0. destruct H0.
exists x. exists (x1:: x2). split. simpl. rewrite H0.
reflexivity. rewrite H. rewrite H1. reflexivity.
Qed.