]> matita.cs.unibo.it Git - helm.git/commitdiff
fixpoint have attributes for pragma (i.e. they can be marked as projections)
authorEnrico Tassi <enrico.tassi@inria.fr>
Sun, 27 Sep 2009 20:33:46 +0000 (20:33 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Sun, 27 Sep 2009 20:33:46 +0000 (20:33 +0000)
helm/software/components/ng_disambiguation/nCicDisambiguate.ml
helm/software/components/ng_kernel/nCic.ml
helm/software/components/ng_kernel/oCic2NCic.ml

index 6bf1c05ba0226ab739812b82d02cd2f95acad3a4..4ea6e5ac3e4dd3ee47655f62a2ac1ed05254dc8f 100644 (file)
@@ -484,7 +484,7 @@ let interpretate_obj
                    ([],ncic_name_of_ident name, decr_idx, cic_type, cic_body))
                  defs
              in
-             let attrs = `Provided, new_flavour_of_flavour flavour in
+             let attrs = `Provided, new_flavour_of_flavour flavour, `Regular in
              NCic.Fixpoint (inductive,inductiveFuns,attrs)
          | bo -> 
              let bo = 
index c531d1c2bf9c7256c4886bde8bbd6780e68f23b0..f39cf868e32fe905a123e4c8b3f516d67e4a68f7 100644 (file)
@@ -98,7 +98,7 @@ type ind_pragma = (* pragmatic of the object *)
 type generated = [ `Generated | `Provided ]
 
 type c_attr = generated * def_flavour * def_pragma
-type f_attr = generated * def_flavour
+type f_attr = generated * def_flavour * def_pragma
 type i_attr = generated * ind_pragma
 
  (* invariant: metasenv and substitution have disjoint domains *)
index 7bfb6c39c6be23cc73352f8d8d29ba908761e6be..1487881c1cd0dd92bbca0c23439a1bc4f18d1b66 100644 (file)
@@ -546,7 +546,7 @@ and height_of_term ?(h=ref 0) t =
         in
         let obj = 
           nuri_of_ouri buri,0,[],[],
-            NCic.Fixpoint (false, fl, (`Generated, `Definition)) 
+            NCic.Fixpoint (false, fl, (`Generated, `Definition, `Regular))
         in
         let r = reference_of_ouri buri (Ref.CoFix cofixno) in
         let obj,r =
@@ -607,7 +607,7 @@ and height_of_term ?(h=ref 0) t =
         in
         let obj = 
           nuri_of_ouri buri,height,[],[],
-            NCic.Fixpoint (true, fl, (`Generated, `Definition)) in
+            NCic.Fixpoint (true, fl, (`Generated, `Definition, `Regular)) in
 (*prerr_endline ("H(" ^ UriManager.string_of_uri buri ^ ") = " ^ string_of_int * height);*)
         let r = reference_of_ouri buri (Ref.Fix (fixno,!rno_fixno,height)) in
         let obj,r =