diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-02-08 17:49:03 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-02-08 17:49:03 +0000 |
| commit | da7aa517fe906633e98aa55e6de3ef77a063e211 (patch) | |
| tree | b4df2ee7f3b65a79f3163f7c18d9e670dd4ebf5c /contrib | |
| parent | d532615bfdbe0ec181690fd6c94a53f4ecc3f850 (diff) | |
Add lif then else for if in bool.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9626 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/subtac/Utils.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/contrib/subtac/Utils.v b/contrib/subtac/Utils.v index 08fa8fbc2..6e1a8ee44 100644 --- a/contrib/subtac/Utils.v +++ b/contrib/subtac/Utils.v @@ -10,6 +10,9 @@ Notation "( x & ? )" := (@exist _ _ x _) : core_scope. Notation " ! " := (False_rect _ _). +(* Logical if : keep a trace of the control flow in obligations. *) +Notation " 'lif' b 'then' e 'else' f " := (match b with true => e | false => f end) (at level 30). + Definition ex_pi1 (A : Prop) (P : A -> Prop) (t : ex P) : A. intros. induction t. |