diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-09-22 20:23:05 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-09-22 20:23:05 +0000 |
commit | 287058532aefd848df5d83ee29707359672b626f (patch) | |
tree | 47c55470a6af179ce2ae5fa677bccdb774d32fb2 /test-suite/success/ProgramWf.v | |
parent | 5a183ead91244c881df39bb817a9dded2769bd8f (diff) |
Add the option to automatically introduce variables declared before the
colon in (mutual) proofs with [Set Automatic Introduction].
Fix a minor test-suite issue in ProgramWf due to new handling of the
default obligation tactic.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12351 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/ProgramWf.v')
-rw-r--r-- | test-suite/success/ProgramWf.v | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/test-suite/success/ProgramWf.v b/test-suite/success/ProgramWf.v index a6a0da878..18111f07c 100644 --- a/test-suite/success/ProgramWf.v +++ b/test-suite/success/ProgramWf.v @@ -1,4 +1,6 @@ Require Import Arith Program. +Require Import ZArith Zwf. + Set Implicit Arguments. (* Set Printing All. *) Print sigT_rect. @@ -13,11 +15,8 @@ Program Fixpoint merge (n m : nat) {measure (n + m) (lt)} : nat := Print merge. -Require Import ZArith. - Print Zlt. -Require Import Zwf. Print Zwf. Open Local Scope Z_scope. @@ -95,4 +94,3 @@ Qed. Program Fixpoint check_n' (n : nat) (m : nat | m = n) (p : nat) (q : nat | q = p) {measure (p - n) p} : nat := _. - |