This commit is contained in:
Thomas Baruchel 2023-02-03 17:21:27 +01:00
parent 86908a4339
commit 98131965ff
1 changed files with 6 additions and 4 deletions

View File

@ -2456,7 +2456,6 @@ Proof.
reflexivity.
rewrite Nat.mul_comm. replace (2^3) with 8.
replace 4 with (length (hd++a) mod 8) at 3.
rewrite <- Nat.div_mod_eq. rewrite <- H0 at 1.
@ -2471,10 +2470,13 @@ Proof.
rewrite <- app_assoc. reflexivity. reflexivity.
rewrite H2 in H1. rewrite H3 in H1. simpl in H1.
inversion H1. contradiction H4.
destruct H1. assert (Some false = Some true).
apply H4. reflexivity. inversion H5.
rewrite Nat.add_comm.
rewrite Nat.sub_add. reflexivity.
apply Nat.lt_le_incl. assumption.
Qed.