X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FproofEngineReduction.mli;h=5bc5f24585326b82d08bc31a17ff3782065abe17;hb=156b87c397a8b5cf9b7381def41e070e235941ee;hp=39beb84aa8d8fc55913989f2a97a475ba07f563e;hpb=bccb5e2838b8552896ee797af5114e7c7ca037b6;p=helm.git diff --git a/helm/software/components/tactics/proofEngineReduction.mli b/helm/software/components/tactics/proofEngineReduction.mli index 39beb84aa..5bc5f2458 100644 --- a/helm/software/components/tactics/proofEngineReduction.mli +++ b/helm/software/components/tactics/proofEngineReduction.mli @@ -34,8 +34,6 @@ exception WrongShape exception AlreadySimplified exception WhatAndWithWhatDoNotHaveTheSameLength;; -val alpha_equivalence: Cic.term -> Cic.term -> bool - (* Replaces "textually" in "where" every term in "what" with the corresponding term in "with_what". The terms in "what" ARE NOT lifted when binders are crossed. The terms in "with_what" ARE NOT lifted when binders are crossed. @@ -52,7 +50,8 @@ val replace : inverse of subst up to the fact that free variables in "where" are NOT lifted. *) val replace_lifting : - equality:(Cic.term -> Cic.term -> bool) -> + equality:(Cic.context -> Cic.term -> Cic.term -> bool) -> + context:Cic.context -> what:Cic.term list -> with_what:Cic.term list -> where:Cic.term -> Cic.term (* Replaces in "where" every term in "what" with the corresponding @@ -65,9 +64,10 @@ val replace_lifting_csc : int -> equality:(Cic.term -> Cic.term -> bool) -> what:Cic.term list -> with_what:Cic.term list -> where:Cic.term -> Cic.term -val subst_inv : +(* This is like "replace_lifting_csc 1 ~with_what:[Rel 1; ... ; Rel 1]" + up to the fact that the index to start from can be specified *) +val replace_with_rel_1_from : equality:(Cic.term -> Cic.term -> bool) -> what:Cic.term list -> int -> Cic.term -> Cic.term -val reduce : Cic.context -> Cic.term -> Cic.term val simpl : Cic.context -> Cic.term -> Cic.term val unfold : ?what:Cic.term -> Cic.context -> Cic.term -> Cic.term