Update
This commit is contained in:
parent
09e6059a4d
commit
99a4a193b6
@ -1036,7 +1036,6 @@ Proof.
|
|||||||
generalize K. generalize J. apply tm_step_stable.
|
generalize K. generalize J. apply tm_step_stable.
|
||||||
|
|
||||||
rewrite <- H2 in H1. rewrite H0 in H1. inversion H1.
|
rewrite <- H2 in H1. rewrite H0 in H1. inversion H1.
|
||||||
replace (tm_morphism (tm_step (n + m))) with (tm_step (S n + m)) in H4.
|
|
||||||
rewrite H4.
|
rewrite H4.
|
||||||
|
|
||||||
assert (nth_error (tm_step n) (S k) = Some(nth (S k) (tm_step n) false)).
|
assert (nth_error (tm_step n) (S k) = Some(nth (S k) (tm_step n) false)).
|
||||||
@ -1070,10 +1069,6 @@ Proof.
|
|||||||
rewrite H3 in H6. rewrite H5 in H6.
|
rewrite H3 in H6. rewrite H5 in H6.
|
||||||
inversion H6. rewrite H8.
|
inversion H6. rewrite H8.
|
||||||
|
|
||||||
replace (tm_morphism (tm_step (n + m))) with (tm_step (S n + m)).
|
|
||||||
reflexivity.
|
|
||||||
|
|
||||||
reflexivity.
|
|
||||||
reflexivity.
|
reflexivity.
|
||||||
Qed.
|
Qed.
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user