X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_notation%2FcicNotationPt.ml;h=56272ebedc5f7ffc90d9dff37bd6463eeb074b5d;hb=34113d572c334c351ba66f4b05db503eed4d48f2;hp=5ad1f0b5b1896d4006aed511b0f00761d235e337;hpb=915c3e1993cad4dcadefe7e6886e6cb8feefae8b;p=helm.git

diff --git a/helm/ocaml/cic_notation/cicNotationPt.ml b/helm/ocaml/cic_notation/cicNotationPt.ml
index 5ad1f0b5b..56272ebed 100644
--- a/helm/ocaml/cic_notation/cicNotationPt.ml
+++ b/helm/ocaml/cic_notation/cicNotationPt.ml
@@ -109,6 +109,7 @@ and layout_pattern =
   | Root of term * term (* argument, index *)
   | Break
   | Box of box_spec * term list
+  | Group of term list
 
 and magic_term =
   (* level 1 magics *)
@@ -135,19 +136,3 @@ and pattern_variable =
   (* level 2 variables *)
   | FreshVar of string
 
-type argument_pattern =
-  | IdentArg of int * string (* eta-depth, name *)
-
-type cic_appl_pattern =
-  | UriPattern of UriManager.uri
-  | VarPattern of string
-  | ApplPattern of cic_appl_pattern list
-
-type phrase = (* TODO hackish: replace with TacticAst.statement or similar *)
-  | Print of term
-  | Notation of term * Gramext.g_assoc option * int option * term
-      (* level 1 pattern, associativity, precedence, level 2 pattern *)
-  | Interpretation of (string * argument_pattern list) * cic_appl_pattern
-  | Render of UriManager.uri
-  | Dump  (* dump grammar *)
-