diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-11-10 18:43:07 +0100 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-11-10 19:00:00 +0100 |
commit | f0ff590f380fb3d9fac6ebfdd6cfd7bf6874658e (patch) | |
tree | e67a26401e465a9ab75d029b8ee680868fa36c6a /test-suite/micromega | |
parent | e67760138af866b788db7b43a8e93c5f65a9a84e (diff) |
Updating test-suite after Bracketing Last Introduction Pattern set by
default. Interestingly, there is an example where it makes the rest of
the proof less natural.
Goal forall x y:Z, ...
intros [y|p1[|p2|p2]|p1[|p2|p2]].
where case analysis on y is not only in the 2nd and 3rd case, is not
anymore easy to do.
Still, I find the bracketing of intro-patterns a natural property, and
its generalization in all situations a natural expectation for
uniformity. So, what to do? The following is e.g. not as compact and
"one-shot":
intros [|p1|p1]; [intros y|intros [|p2|p2] ..].
Diffstat (limited to 'test-suite/micromega')
-rw-r--r-- | test-suite/micromega/square.v | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/test-suite/micromega/square.v b/test-suite/micromega/square.v index 8767f6874..abf8be72e 100644 --- a/test-suite/micromega/square.v +++ b/test-suite/micromega/square.v @@ -53,8 +53,7 @@ Qed. Theorem sqrt2_not_rational : ~exists x:Q, x^2==2#1. Proof. - unfold Qeq; intros [x]; simpl (Qden (2#1)); rewrite Z.mul_1_r. - intros HQeq. + unfold Qeq; intros (x,HQeq); simpl (Qden (2#1)) in HQeq; rewrite Z.mul_1_r in HQeq. assert (Heq : (Qnum x ^ 2 = 2 * ' Qden x ^ 2%Q)%Z) by (rewrite QnumZpower in HQeq ; rewrite QdenZpower in HQeq ; auto). assert (Hnx : (Qnum x <> 0)%Z) |