Fix over the previous one: Var-LetIn abstractions should be ignored and not

transformed into applications at all.

diff --git a/helm/software/components/ng_kernel/oCic2NCic.ml b/helm/software/components/ng_kernel/oCic2NCic.ml
index cc675d2768eca313934f6db3082322c31ad37331..5a2fdb8f850f30c3310449d0e030ef8a57a1c967 100644 (file)
--- a/helm/software/components/ng_kernel/oCic2NCic.ml
+++ b/helm/software/components/ng_kernel/oCic2NCic.ml
@@ -385,11 +385,9 @@ let convert_term uri t =
        List.fold_right
         (fun luri (l,objs) ->
           match fst (CicEnvironment.get_obj CicUniv.oblivion_ugraph luri) with
-             Cic.Variable (_,bo,_,_,_) ->
-              let t =
-               match bo with
-                  None -> List.assoc luri ens
-                | Some t -> CicSubstitution.subst_vars ens t in
+             Cic.Variable (_,Some _,_,_,_) -> l, objs
+           | Cic.Variable (_,None,_,_,_) ->
+              let t = List.assoc luri ens in
               let t,o = aux octx ctx n_fix uri t in
                t::l, o@objs
            | _ -> assert false