This commit is contained in:
Thomas Baruchel 2022-12-14 21:00:46 +01:00
parent 354a87fddc
commit 787dab1159

View File

@ -1152,9 +1152,9 @@ Proof.
rewrite nth_error_app2. rewrite nth_error_app2. rewrite tm_size_power2.
assert (forall a b, option_map negb a = option_map negb b <-> a = b).
intros a b. destruct a. destruct b. destruct b0.
destruct b; simpl. split; intro; reflexivity. split; intro; inversion H2.
destruct b; simpl. split; intro; inversion H2. split; intro; reflexivity.
intros a b. destruct a. destruct b. destruct b0; destruct b; simpl.
split; intro; reflexivity. split; intro; inversion H2.
split; intro; inversion H2. split; intro; reflexivity.
split; intro; inversion H2.
destruct b. split; intro; inversion H2. split; intro; reflexivity.
@ -1253,11 +1253,9 @@ Proof.
destruct (nth_error (tm_step n) (k * 2 ^ m)).
destruct (nth_error (tm_step n) (k * 2 ^ m + 2^j)).
destruct b. destruct b0.
destruct H0.
destruct b; destruct b0; destruct H0.
assert (Some true = Some true). reflexivity.
apply H1 in H2. rewrite <- H2 at 1. easy. easy.
destruct b0. easy. destruct H0.
apply H1 in H2. rewrite <- H2 at 1. easy. easy. easy.
assert (Some false = Some false). reflexivity.
apply H1 in H2. rewrite H2 at 1. easy. easy.
rewrite nth_error_nth' with (d := false). easy.