Update
This commit is contained in:
parent
4b36fa4531
commit
e0754cb433
@ -867,10 +867,8 @@ Proof.
|
||||
intros n l1 l2 b. intros H.
|
||||
assert (nth_error (tm_step n) (length l1) = Some b).
|
||||
generalize H. apply list_concat_to_pos.
|
||||
rewrite tm_build.
|
||||
assert (length l1 < length (tm_step n)).
|
||||
generalize H. apply list_app_length_lt.
|
||||
rewrite nth_error_app1. apply H0. apply H1.
|
||||
rewrite tm_build. rewrite nth_error_app1. apply H0.
|
||||
generalize H. apply list_app_length_lt.
|
||||
Qed.
|
||||
|
||||
Lemma tm_step_next_range' :
|
||||
|
Loading…
Reference in New Issue
Block a user