diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2022-04-14 18:06:08 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2022-04-14 18:06:08 +0200 |
commit | 1f21e1f95d43f5e76e38e1737de9a2a0322fd71c (patch) | |
tree | 68192813dab5806dcfd608d1c474b4030b0006f6 /src/Misc.v | |
parent | 965520037392fa6c523348e3ff9dff5b9d5c2313 (diff) | |
parent | 65c185275f8c78908c1496c6665bc7fd50a4607b (diff) | |
download | smtcoq-1f21e1f95d43f5e76e38e1737de9a2a0322fd71c.tar.gz smtcoq-1f21e1f95d43f5e76e38e1737de9a2a0322fd71c.zip |
Merge remote-tracking branch 'origin/coq-8.11' into coq-8.12
Diffstat (limited to 'src/Misc.v')
-rw-r--r-- | src/Misc.v | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -457,7 +457,7 @@ intros n i A f; revert i; induction n. intros i a Hi. assert (i = 0). rewrite <- to_Z_eq, to_Z_0. -generalize (to_Z_bounded i); lia. +generalize (to_Z_bounded i). change (φ (i) < 1)%Z in Hi. lia. reflexivity. intros i a Hi; simpl. case (i == 0); [ reflexivity | ]. @@ -481,7 +481,7 @@ Lemma iter_int63_aux_S : forall n i A f a, Proof. intros n i A f; revert i; induction n; intros i a Hi. { - lia. + change (0 < φ (i) < 1)%Z in Hi. lia. } simpl. replace (i == 0) with false. @@ -515,8 +515,9 @@ replace (i == 0) with false. case_eq (i == 2). { rewrite eqb_spec; intro H; rewrite H in *; clear i H. - destruct n; [ lia | ]. - case n; reflexivity. + destruct n. + - change (0 < φ (2) < 2 ^ Z.of_nat 1)%Z with (0 < φ (2) < 2)%Z in Hi. lia. + - case n; reflexivity. } rewrite <- not_true_iff_false, eqb_spec, <- to_Z_eq. change (to_Z 2) with 2%Z; intro Hi2. |