Skip to content

Commit 0e14c7b

Browse files
add missing nounfold for Qeq_bool in Sample.v (#48)
1 parent d9d85c8 commit 0e14c7b

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

PerformanceExperiments/Sample.v

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -60,7 +60,7 @@ Lemma continued_fraction_correct v n
6060
: eval_continued_fraction (continued_fraction v n) == v.
6161
Proof.
6262
cbv [eval_continued_fraction].
63-
revert v; induction n; intro; cbn; destruct (Qeq_bool 0 v) eqn:H; cbn.
63+
revert v; induction n; intro; cbn -[Qeq_bool]; destruct (Qeq_bool 0 v) eqn:H; cbn.
6464
all: rewrite ?Qeq_bool_iff in H; rewrite <- ?H.
6565
all: try reflexivity.
6666
{ rewrite (surjective_pairing (continued_fraction _ _)); cbn.

0 commit comments

Comments
 (0)