Update
This commit is contained in:
parent
cde0ed1453
commit
4f74ecf870
18
thue-morse.v
18
thue-morse.v
|
@ -151,15 +151,6 @@ Proof.
|
|||
+ simpl. apply eq_S. assumption.
|
||||
Qed.
|
||||
|
||||
Lemma tm_morphism_app : forall (l1 l2 : list bool),
|
||||
tm_morphism (l1 ++ l2) = tm_morphism l1 ++ tm_morphism l2.
|
||||
Proof.
|
||||
intros l1 l2.
|
||||
induction l1.
|
||||
- reflexivity.
|
||||
- simpl. rewrite IHl1. reflexivity.
|
||||
Qed.
|
||||
|
||||
Lemma tm_morphism_eq : forall (l1 l2 : list bool),
|
||||
l1 = l2 <-> tm_morphism l1 = tm_morphism l2.
|
||||
Proof.
|
||||
|
@ -184,6 +175,15 @@ Proof.
|
|||
simpl. rewrite Nat.add_0_r. reflexivity.
|
||||
Qed.
|
||||
|
||||
Lemma tm_morphism_app : forall (l1 l2 : list bool),
|
||||
tm_morphism (l1 ++ l2) = tm_morphism l1 ++ tm_morphism l2.
|
||||
Proof.
|
||||
intros l1 l2.
|
||||
induction l1.
|
||||
- reflexivity.
|
||||
- simpl. rewrite IHl1. reflexivity.
|
||||
Qed.
|
||||
|
||||
Lemma tm_morphism_app2 : forall (l hd tl : list bool),
|
||||
tm_morphism l = hd ++ tl
|
||||
-> even (length hd) = true
|
||||
|
|
Loading…
Reference in New Issue
Block a user