diff options
| author | msozeau | 2006-11-15 15:06:24 +0000 |
|---|---|---|
| committer | msozeau | 2006-11-15 15:06:24 +0000 |
| commit | 3bc4bde3c83333c1825b0f9c6c03474de12fb87e (patch) | |
| tree | 909e8e742f3875584fa98129a9cb6711d2f1473e /contrib/subtac/test | |
| parent | 8116b960ab0d512eec4b9e61d0d2970c2bbda5fa (diff) | |
Some usability enhancements.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9376 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/subtac/test')
| -rw-r--r-- | contrib/subtac/test/euclid.v | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/contrib/subtac/test/euclid.v b/contrib/subtac/test/euclid.v index 7fa80fbd0c..39fdc9ba75 100644 --- a/contrib/subtac/test/euclid.v +++ b/contrib/subtac/test/euclid.v @@ -9,20 +9,19 @@ Program Fixpoint euclid (a : nat) (b : { b : nat | b <> O }) {wf a lt} : (S q' & r) else (O & a). -Obligations. - Require Import Coq.subtac.Utils. Require Import Coq.subtac.FixSub. Require Import Omega. +Obligations. Obligation 1. - simpl ; intros. + intros. destruct_exists ; simpl in * ; auto with arith. omega. Qed. Obligation 2 of euclid. - simpl ; intros. + intros. destruct_exists ; simpl in * ; auto with arith. assert(x0 * S q' = x0 * q' + x0) by auto with arith ; omega. Qed. @@ -32,7 +31,7 @@ Obligation 4 of euclid. Qed. Obligation 3 of euclid. - simpl ; intros. + intros. destruct_exists ; simpl in *. omega. Qed. @@ -44,10 +43,10 @@ Extraction le_lt_dec. Extraction euclid. -Program Definition testsig (a : nat) : { x : nat & { y : nat | x = y } } := - (a & a). +Program Definition testsig (a : nat) : { x : nat & { y : nat | x < y } } := + (a & S a). -Solve Obligations using simpl ; auto. +Solve Obligations using auto with zarith. Extraction testsig. |