fix_outty partially fixed: missing lifts in args and ens

diff --git a/helm/software/components/ng_kernel/oCic2NCic.ml b/helm/software/components/ng_kernel/oCic2NCic.ml
index d67089146171479ee83dac24f8429ff738668d8a..54e12be14ae6fe3bcdda32c5fa6e393770ee09b2 100644 (file)
--- a/helm/software/components/ng_kernel/oCic2NCic.ml
+++ b/helm/software/components/ng_kernel/oCic2NCic.ml
@@ -93,7 +93,8 @@ prerr_endline ("LEFTNO: " ^ string_of_int leftno ^ "  " ^ CicPp.ppterm arity);*)
    match n, CicReduction.whd context outsort with
       0, Cic.Prod _ -> raise Nothing_to_do
     | 0, _ ->
-       let ty = Cic.MutInd (curi,tyno,ens) in
+       let irl = List.rev irl in
+       let ty = CicSubstitution.lift rightno (Cic.MutInd (curi,tyno,ens)) in
        let ty =
         if args = [] && irl = [] then ty
         else