diff options
| author | herbelin | 2002-11-26 21:58:57 +0000 |
|---|---|---|
| committer | herbelin | 2002-11-26 21:58:57 +0000 |
| commit | b35297ca8e2521f0672b671e7be8f186c66b80f0 (patch) | |
| tree | d9972ce53bde3bcf88d168460ffff674ce29c10d /theories | |
| parent | fe26bf9b20c3f44a7db211bdaf9dc1c908db3d83 (diff) | |
Ne pas cacher les Metas d'une notations, ils peuvent être liant dans
les filtrage de ltac.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3302 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/Init/LogicSyntax.v | 10 | ||||
| -rw-r--r-- | theories/Init/Logic_TypeSyntax.v | 7 |
2 files changed, 0 insertions, 17 deletions
diff --git a/theories/Init/LogicSyntax.v b/theories/Init/LogicSyntax.v index 0d8285fcc7..3a08dd529f 100644 --- a/theories/Init/LogicSyntax.v +++ b/theories/Init/LogicSyntax.v @@ -40,17 +40,7 @@ Notation "'EX' x | p & q" := (ex2 ? [x]p [x]q) Notation "'EX' x : t | p & q" := (ex2 t [x:t]p [x:t]q) (at level 10, p, q at level 8). - (** Parsing only of things in [Logic.v] *) Notation "< A > 'All' ( P )" := (all A P) (at level 1, only parsing). Notation "< A > x = y" := (eq A x y) (at level 1, x at level 0, only parsing). - -(** Pretty-printing only of things in [Logic.v] *) - -Syntax constr - level 1: - equal [ (eq $a $t1 $t2) ] -> - [ [<hov 0> (ANNOT $a) $t1:E [0 1] "=" $t2:E ] ] - | annotskip [ << (ANNOT $_) >> ] -> [ ] - | annotmeta [ << (ANNOT (META ($NUM $n))) >> ] -> [ "<" "?" $n ">" ]. diff --git a/theories/Init/Logic_TypeSyntax.v b/theories/Init/Logic_TypeSyntax.v index 25b67ad938..6593ca8bbd 100644 --- a/theories/Init/Logic_TypeSyntax.v +++ b/theories/Init/Logic_TypeSyntax.v @@ -38,10 +38,3 @@ Notation "< A > x == y" := (eqT A x y) Notation "< A > x === y" := (identityT A x y) (at level 1, x at level 0, only parsing). - -(** Pretty-printing only of things in [Logic_type.v] *) - -Syntax constr - level 1: - eqT [ (eqT $a $c1 $c2) ] -> [ [<hov 1> (ANNOT $a) $c1:E [0 0] "==" $c2:E ] ] -. |