exception Free
exception OccurCheck
+val delift :
+ Cic.context -> Cic.metasenv -> (Cic.term option) list -> Cic.term -> Cic.term * Cic.metasenv
+
(* The entry (i,t) in a substitution means that *)
(* (META i) have been instantiated with t. *)
type substitution = (int * Cic.term) list
(* unifies [t1] and [t2] in a context [context]. *)
(* Only the metavariables declared in [metasenv] *)
(* can be used in [t1] and [t2]. *)
+(* The returned substitution can be directly *)
+(* withouth first unwinding it. *)
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
+
+(* fo_unif_subst metasenv subst context t1 t2 *)
+(* unifies [t1] and [t2] in a context [context] *)
+(* and with [subst] as the current substitution *)
+(* (i.e. unifies ([subst] [t1]) and *)
+(* ([subst] [t2]) in a context *)
+(* ([subst] [context]) using the metasenv *)
+(* ([subst] [metasenv]) *)
+(* Only the metavariables declared in [metasenv] *)
+(* can be used in [t1] and [t2]. *)
+(* [subst] and the substitution returned are not *)
+(* unwinded. *)
+(*CSC: fare un tipo unione Unwinded o ToUnwind e fare gestire la
+ cosa all'apply_subst!!!*)
+val fo_unif_subst :
+ substitution -> Cic.context -> Cic.metasenv -> Cic.term -> Cic.term ->
+ substitution * Cic.metasenv
-(* apply_subst subst t *)
-(* applies the substitution [sust] to [t] *)
+(* apply_subst subst t *)
+(* applies the substitution [subst] to [t] *)
val apply_subst : substitution -> Cic.term -> Cic.term
(* apply_subst_reducing subst (Some (mtr,reductions_no)) t *)