diff options
| author | msozeau | 2006-09-01 19:00:34 +0000 |
|---|---|---|
| committer | msozeau | 2006-09-01 19:00:34 +0000 |
| commit | 1df05ab8511c95883fcb5804b7b98ff56813fa89 (patch) | |
| tree | dbd3c585eea2e826ec05fca643cd987375cf9eee /contrib/subtac/Utils.v | |
| parent | 72cedefefedf67c1b8794fc68bbf88bb52e561d4 (diff) | |
New handling of obligations.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9120 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/subtac/Utils.v')
| -rw-r--r-- | contrib/subtac/Utils.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/subtac/Utils.v b/contrib/subtac/Utils.v index b1694d7c22..449e0abe1e 100644 --- a/contrib/subtac/Utils.v +++ b/contrib/subtac/Utils.v @@ -4,7 +4,7 @@ Notation "'fun' { x : A | P } => Q" := (fun x:{x:A|P} => Q) (at level 200, x ident, right associativity). -Notation "( x & y )" := (@existS _ _ x y) : core_scope. +Notation "( x & y )" := (@exist _ _ x y) : core_scope. Definition ex_pi1 (A : Prop) (P : A -> Prop) (t : ex P) : A. intros. @@ -44,3 +44,4 @@ end. Ltac destruct_exists := repeat (destruct_one_pair) . +Extraction Inline proj1_sig. |