ocaml 3.09 transition

[helm.git] / helm / fix_params / cicFindParameters.ml

diff --git a/helm/fix_params/cicFindParameters.ml b/helm/fix_params/cicFindParameters.ml
index 555f44e2e482ae2b0d4c67d20fdb55344b84900d..c78d8d21907e622fc1c7fd89fc1f4d131968b858 100644 (file)
--- a/helm/fix_params/cicFindParameters.ml
+++ b/helm/fix_params/cicFindParameters.ml
@@ -86,7 +86,6 @@ let rec parameters_of te ty pparams=
           | C.CurrentProof _ -> S.empty (*CSC wrong *)
           | _ -> raise WrongUriToConstant
         )
-     | C.Abst _ -> S.empty
      | C.MutInd (uri,_,_) ->
         (match CicCache.get_obj uri with
             C.InductiveDefinition (_, params, _) ->
@@ -147,12 +146,12 @@ and fix_params uri filename =
  let module C = Cic in
   let ann = CicCache.get_annobj uri in
    match ann with
-      C.ADefinition (xid, ann, id, te, ty, C.Possible pparams) ->
+      C.ADefinition (xid, id, te, ty, C.Possible pparams) ->
        let te' = Deannotate.deannotate_term te in
        let ty' = Deannotate.deannotate_term ty in
         let real_params = parameters_of te' ty' pparams in
          let fixed =
-          C.ADefinition (xid,ann,id,te,ty,C.Actual real_params)
+          C.ADefinition (xid,id,te,ty,C.Actual real_params)
          in
           Xml.pp (Cic2Xml.pp fixed uri) filename ;
     | _ -> ()