X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Focaml%2Facic_content%2FcicNotationPt.ml;h=a66aa5febb3aa86600fdf8320edb439fb98ed2d0;hb=771ee8b9d122fa963881c876e86f90531bb7434f;hp=e3d5fc544b23b5368e730a4d971c028cc6e9a81e;hpb=9a0e4f3be9f70662f18d2d3b6dd60ae79fba565b;p=helm.git

diff --git a/helm/ocaml/acic_content/cicNotationPt.ml b/helm/ocaml/acic_content/cicNotationPt.ml
index e3d5fc544..a66aa5feb 100644
--- a/helm/ocaml/acic_content/cicNotationPt.ml
+++ b/helm/ocaml/acic_content/cicNotationPt.ml
@@ -23,6 +23,8 @@
  * http://helm.cs.unibo.it/
  *)
 
+(* $Id$ *)
+
 (** CIC Notation Parse Tree *)
 
 type binder_kind = [ `Lambda | `Pi | `Exists | `Forall ]
@@ -171,7 +173,7 @@ type obj =
        * - body is present when its given along with the command, otherwise it
        *   will be given in proof editing mode using the tactical language
        *)
-  | Record of (string * term) list * string * term * (string * term) list
+  | Record of (string * term) list * string * term * (string * term * bool) list
       (** left parameters, name, type, fields *)
 
 (** {2 Standard precedences} *)