X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_notation%2FcicNotationPt.ml;h=c702f5115703f46e8f31f35afec1ff6c0416e85b;hb=3d63cb9ed38f05c679fc3284a5b3bb4d92e52296;hp=15b9a21ad4398fe68db30fe55ecf13d7f64b09b0;hpb=256ea270b884864d0eddd1de66bae2a2cbc513ff;p=helm.git

diff --git a/helm/ocaml/cic_notation/cicNotationPt.ml b/helm/ocaml/cic_notation/cicNotationPt.ml
index 15b9a21ad..c702f5115 100644
--- a/helm/ocaml/cic_notation/cicNotationPt.ml
+++ b/helm/ocaml/cic_notation/cicNotationPt.ml
@@ -36,7 +36,6 @@ let loc_of_floc = function
   | { Lexing.pos_cnum = loc_begin }, { Lexing.pos_cnum = loc_end } ->
       (loc_begin, loc_end)
 
-
 type term_attribute =
   [ `Loc of location                  (* source file location *)
   | `IdRef of string                  (* ACic pointer *)
@@ -90,6 +89,7 @@ and subst = string * term
 and case_pattern = string * capture_variable list
 
 and box_kind = H | V | HV | HOV
+and box_spec = box_kind * bool * bool (* kind, spacing, indent *)
 
 and layout_pattern =
   | Sub of term * term
@@ -104,7 +104,7 @@ and layout_pattern =
   | Sqrt of term
   | Root of term * term (* argument, index *)
 (*   | Break *)
-  | Box of box_kind * term list
+  | Box of box_spec * term list
 
 and magic_term =
   (* level 1 magics *)