From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 8 Apr 2008 14:47:56 +0000 (+0000)
Subject: fix_outty partially fixed: missing lifts in args and ens
X-Git-Tag: make_still_working~5408
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=bef1dc9b45c34a9cf992ec96ea719ca6699960d3;p=helm.git

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 d67089146..54e12be14 100644
--- 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