File tree Expand file tree Collapse file tree 2 files changed +4
-2
lines changed Expand file tree Collapse file tree 2 files changed +4
-2
lines changed Original file line number Diff line number Diff line change @@ -181,7 +181,9 @@ Module Make (NN:NType)(ZZ:ZType)(Import NZ:NType_ZType NN ZZ) <: QType.
181
181
182
182
Theorem spec_eq_bool: forall x y, eq_bool x y = Qeq_bool [x] [y].
183
183
Proof .
184
- intros. unfold eq_bool. rewrite spec_compare. reflexivity.
184
+ unfold eq_bool; intros.
185
+ apply eq_true_iff_eq; rewrite Qeq_bool_iff, spec_compare, Qeq_alt.
186
+ case Qcompare; intuition congruence.
185
187
Qed .
186
188
187
189
(** [check_int] : is a reduced fraction [n/d] in fact a integer ? *)
Original file line number Diff line number Diff line change 11
11
From Stdlib Require Import ZProperties ZDivFloor Ring Lia.
12
12
Require Export BigN.
13
13
Require Import ZSig ZSigZAxioms ZMake.
14
- Import Zpow_def Zdiv.
14
+ Import BinNat Zpow_def Zdiv.
15
15
16
16
(** * [BigZ] : arbitrary large efficient integers.
17
17
You can’t perform that action at this time.
0 commit comments