(* Only the metavariables declared in [metasenv] *)
(* can be used in [t1] and [t2]. *)
val fo_unif :
- (int * Cic.term) list -> Cic.context -> Cic.term -> Cic.term -> substitution
+ Cic.metasenv -> Cic.context -> Cic.term -> Cic.term ->
+ substitution * Cic.metasenv
(* apply_subst subst t *)
(* applies the substitution [sust] to [t] *)