X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Flibrary%2FcicRecord.ml;h=775292ccbb4c959892707be7eaa33a5e8df68236;hb=6f0e3275c5a100568c8529d6c58150ef4af692d0;hp=85c2ea03676cfef4723a39d8524548a157f48fa0;hpb=cf3635c0830661f59d16339cd7fc9c3b948fcbc8;p=helm.git diff --git a/helm/ocaml/library/cicRecord.ml b/helm/ocaml/library/cicRecord.ml index 85c2ea036..775292ccb 100644 --- a/helm/ocaml/library/cicRecord.ml +++ b/helm/ocaml/library/cicRecord.ml @@ -23,6 +23,8 @@ * http://helm.cs.unibo.it/ *) +(* $Id$ *) + let rec_ty uri leftno = let rec_ty = Cic.MutInd (uri,0,[]) in if leftno = 0 then rec_ty else