diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-02-23 14:58:17 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-02-23 14:58:48 +0100 |
| commit | 8451b4ae99b448894a6269c08be7f3ac0d74cac4 (patch) | |
| tree | 2846fada2c230bc996d3afe5aaeb0db51c00e953 | |
| parent | fedc831df9626a31cd0d26ee6b9e022b67f90c2a (diff) | |
Fixing a little bug in printing ex2 (type was printed "_" by default).
| -rw-r--r-- | theories/Init/Logic.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/theories/Init/Logic.v b/theories/Init/Logic.v index 85123cc44..b32985b80 100644 --- a/theories/Init/Logic.v +++ b/theories/Init/Logic.v @@ -243,9 +243,9 @@ Notation "'exists' x .. y , p" := (ex (fun x => .. (ex (fun y => p)) ..)) Notation "'exists2' x , p & q" := (ex2 (fun x => p) (fun x => q)) (at level 200, x ident, p at level 200, right associativity) : type_scope. -Notation "'exists2' x : t , p & q" := (ex2 (fun x:t => p) (fun x:t => q)) - (at level 200, x ident, t at level 200, p at level 200, right associativity, - format "'[' 'exists2' '/ ' x : t , '/ ' '[' p & '/' q ']' ']'") +Notation "'exists2' x : A , p & q" := (ex2 (A:=A) (fun x => p) (fun x => q)) + (at level 200, x ident, A at level 200, p at level 200, right associativity, + format "'[' 'exists2' '/ ' x : A , '/ ' '[' p & '/' q ']' ']'") : type_scope. (** Derived rules for universal quantification *) |