* http://cs.unibo.it/helm/.
*)
-(* ALB, needed by the new paramodulation... *)
-val apply_tac_verbose_with_subst:
- term:Cic.term -> ProofEngineTypes.proof * int ->
- Cic.substitution * (ProofEngineTypes.proof * int list)
+(**** useful only to implement tactics similar to apply ****)
+
+val generalize_exp_named_subst_with_fresh_metas :
+ Cic.context ->
+ int ->
+ UriManager.uri ->
+ (UriManager.uri * Cic.term) list ->
+ int * Cic.metasenv *
+ Cic.term Cic.explicit_named_substitution *
+ Cic.term Cic.explicit_named_substitution
+
+val classify_metas :
+ Cic.term ->
+ (Cic.term -> bool) ->
+ (Cic.context -> Cic.term -> Cic.term) ->
+ (Cic.term * Cic.context * Cic.term) list ->
+ (Cic.term * Cic.context * Cic.term) list *
+ (Cic.term * Cic.context * Cic.term) list
+
+(* Not primitive, but useful for elim *)
+
+exception AllSelectedTermsMustBeConvertible;;
+
+val generalize_tac:
+ ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
+ ProofEngineTypes.lazy_pattern ->
+ ProofEngineTypes.tactic
(* not a real tactic *)
val apply_tac_verbose :
ProofEngineTypes.proof * int ->
(Cic.term -> Cic.term) * (ProofEngineTypes.proof * int list)
+(* the proof status has a subst now, and apply_tac honors it *)
val apply_tac:
term: Cic.term -> ProofEngineTypes.tactic
+val applyP_tac: (* apply for procedural reconstruction *)
+ term: Cic.term -> ProofEngineTypes.tactic
val exact_tac:
term: Cic.term -> ProofEngineTypes.tactic
val intros_tac:
val elim_intros_simpl_tac:
?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
- ?depth:int -> ?using:Cic.term -> Cic.term -> ProofEngineTypes.tactic
+ ?depth:int -> ?using:Cic.term ->
+ ?pattern:ProofEngineTypes.lazy_pattern -> Cic.term ->
+ ProofEngineTypes.tactic
val elim_intros_tac:
?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
- ?depth:int -> ?using:Cic.term -> Cic.term -> ProofEngineTypes.tactic
+ ?depth:int -> ?using:Cic.term ->
+ ?pattern:ProofEngineTypes.lazy_pattern -> Cic.term ->
+ ProofEngineTypes.tactic
+
+val cases_intros_tac:
+ ?howmany:int ->
+ ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
+ ?pattern:ProofEngineTypes.lazy_pattern -> Cic.term ->
+ ProofEngineTypes.tactic
+
+(* FG *)
+
+val mk_predicate_for_elim:
+ context:Cic.context -> metasenv:Cic.metasenv -> subst:Cic.substitution ->
+ ugraph:CicUniv.universe_graph -> goal:Cic.term ->
+ arg:Cic.term -> using:Cic.term -> cpattern:Cic.term -> args_no:int ->
+ Cic.metasenv * Cic.substitution * Cic.term * Cic.term * Cic.term list