contesto e si lifta di tot... COSA SIGNIFICA TUTTO CIO'?????? *)
let generalize_tac
- ?(mk_fresh_name_callback = ProofEngineHelpers.mk_fresh_name)
+ ?(mk_fresh_name_callback = FreshNamesGenerator.mk_fresh_name)
terms ~status:((proof,goal) as status)
=
let module C = Cic in
~start:
(P.cut_tac
(C.Prod(
- (mk_fresh_name_callback context C.Anonymous typ),
+ (mk_fresh_name_callback metasenv context C.Anonymous typ),
typ,
(ProofEngineReduction.replace_lifting_csc 1
~equality:(==)