X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Ffix_params%2FcicFindParameters.ml;h=c78d8d21907e622fc1c7fd89fc1f4d131968b858;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=555f44e2e482ae2b0d4c67d20fdb55344b84900d;hpb=e9c302661f68459965199f7198358c07d9083090;p=helm.git

diff --git a/helm/fix_params/cicFindParameters.ml b/helm/fix_params/cicFindParameters.ml
index 555f44e2e..c78d8d219 100644
--- 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 ;
     | _ -> ()