(* ring tactics *)
-val ring_tac: status: ProofEngineTypes.status -> ProofEngineTypes.status
+val ring_tac: ProofEngineTypes.tactic
(* auxiliary tactics *)
-val elim_type_tac:
- status: ProofEngineTypes.status -> term: Cic.term -> ProofEngineTypes.status
-val reflexivity_tac: status: ProofEngineTypes.status -> ProofEngineTypes.status
+val elim_type_tac: term: Cic.term -> ProofEngineTypes.tactic
+val reflexivity_tac: ProofEngineTypes.tactic
+val id_tac : ProofEngineTypes.tactic
(* pseudo tacticals *)
val try_tactics:
- tactics: (string * ProofEngineTypes.tactic) list ->
- status: ProofEngineTypes.status ->
- ProofEngineTypes.status
-
+ tactics: (string * ProofEngineTypes.tactic) list -> ProofEngineTypes.tactic
+val thens:
+ start: ProofEngineTypes.tactic ->
+ continuations: ProofEngineTypes.tactic list -> ProofEngineTypes.tactic