Skip to content

Commit a0844a9

Browse files
fajbxavierleroy
authored andcommitted
More robust proof of size_and (#320)
The proposed proof only uses `zify` for closing the goal. This is needed for Coq PR #10982 which changes the inner working of `zify`.
1 parent 1c1a4d8 commit a0844a9

File tree

1 file changed

+5
-4
lines changed

1 file changed

+5
-4
lines changed

lib/Integers.v

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -3322,10 +3322,11 @@ Proof.
33223322
assert (0 <= Z.min (size a) (size b)).
33233323
generalize (size_range a) (size_range b). zify; omega.
33243324
apply bits_size_3. auto. intros.
3325-
rewrite bits_and. zify. subst z z0. destruct H1.
3326-
rewrite (bits_size_2 a). auto. omega.
3327-
rewrite (bits_size_2 b). apply andb_false_r. omega.
3328-
omega.
3325+
rewrite bits_and by omega.
3326+
rewrite andb_false_iff.
3327+
generalize (bits_size_2 a i).
3328+
generalize (bits_size_2 b i).
3329+
zify; intuition.
33293330
Qed.
33303331

33313332
Corollary and_interval:

0 commit comments

Comments
 (0)