aboutsummaryrefslogtreecommitdiffstats
path: root/src/Misc.v
diff options
context:
space:
mode:
authorChantal Keller <Chantal.Keller@lri.fr>2022-04-14 18:06:08 +0200
committerChantal Keller <Chantal.Keller@lri.fr>2022-04-14 18:06:08 +0200
commit1f21e1f95d43f5e76e38e1737de9a2a0322fd71c (patch)
tree68192813dab5806dcfd608d1c474b4030b0006f6 /src/Misc.v
parent965520037392fa6c523348e3ff9dff5b9d5c2313 (diff)
parent65c185275f8c78908c1496c6665bc7fd50a4607b (diff)
downloadsmtcoq-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.v9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Misc.v b/src/Misc.v
index 0317bda..9a4a589 100644
--- a/src/Misc.v
+++ b/src/Misc.v
@@ -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.