New tactic "case1_tac" that make "intro" followed by case of the first

[helm.git] / helm / software / components / ng_refiner / nCicMetaSubst.mli

diff --git a/helm/software/components/ng_refiner/nCicMetaSubst.mli b/helm/software/components/ng_refiner/nCicMetaSubst.mli
index 21ac5c3ccce704a8473cd7cc7f23f53c1d33d559..033ea1b1b4f53682a419a5856380f1a46ee912bd 100644 (file)
--- a/helm/software/components/ng_refiner/nCicMetaSubst.mli
+++ b/helm/software/components/ng_refiner/nCicMetaSubst.mli
@@ -57,10 +57,11 @@ val mk_meta:
    ?name:string -> 
    NCic.metasenv -> NCic.context -> 
     [ `WithType of NCic.term | `Term | `Type | `Sort ] -> 
-    NCic.metasenv * NCic.term * NCic.term (* menv, instance, type *)
+    NCic.metasenv * int * NCic.term * NCic.term (* menv,metano,instance,type *)
 
 (* returns the resulting type, the metasenv and the arguments *)
 val saturate:
-    ?delta:int -> NCic.metasenv -> NCic.context -> NCic.term -> int ->
+    ?delta:int -> NCic.metasenv -> NCic.substitution -> 
+    NCic.context -> NCic.term -> int ->
        NCic.term * NCic.metasenv * NCic.term list