X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matitaB%2Fcomponents%2Fng_tactics%2FnCicElim.ml;h=fd20de1dcb6eb9aba3ec4531eaa921157821c6bf;hb=e79c8b830f9f6b0c3f4d577909e32e1bb4032cdf;hp=c2543711a5d40ce53ad10eecb162e9ece4704644;hpb=9dac2c325dca1b5b92d6ba11dadf470538bae28e;p=helm.git

diff --git a/matitaB/components/ng_tactics/nCicElim.ml b/matitaB/components/ng_tactics/nCicElim.ml
index c2543711a..fd20de1dc 100644
--- a/matitaB/components/ng_tactics/nCicElim.ml
+++ b/matitaB/components/ng_tactics/nCicElim.ml
@@ -197,7 +197,7 @@ let mk_elims status (uri,_,_,_,obj) =
     NCic.Inductive (true,leftno,[itl],_) ->
       List.map (fun s-> mk_elim status uri leftno itl (ast_of_sort s) (`Elim s))
        (NCic.Prop::
-         List.map (fun s -> NCic.Type s) (NCicEnvironment.get_universes ()))
+         List.map (fun s -> NCic.Type s) (NCicEnvironment.get_universes status))
    | _ -> []
 ;;