X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_content%2FcicNotationPt.ml;h=6ea1ec9175449da004407a76ce43f6265cbf1be9;hb=2eaee49a7ff3ed74598a0db84ce4dbc5bca92380;hp=a66aa5febb3aa86600fdf8320edb439fb98ed2d0;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/acic_content/cicNotationPt.ml b/helm/software/components/acic_content/cicNotationPt.ml
index a66aa5feb..6ea1ec917 100644
--- a/helm/software/components/acic_content/cicNotationPt.ml
+++ b/helm/software/components/acic_content/cicNotationPt.ml
@@ -171,9 +171,10 @@ type obj =
        * - name is absent when an unnamed theorem is being proved, tipically in
        *   interactive usage
        * - body is present when its given along with the command, otherwise it
-       *   will be given in proof editing mode using the tactical language
+       *   will be given in proof editing mode using the tactical language,
+       *   unless the flavour is an Axiom
        *)
-  | Record of (string * term) list * string * term * (string * term * bool) list
+  | Record of (string * term) list * string * term * (string * term * bool * int) list
       (** left parameters, name, type, fields *)
 
 (** {2 Standard precedences} *)