case tactic first tries with a simple outtype and then with a more sofisticated one

[helm.git] / helm / software / components / tactics / tactics.ml

diff --git a/helm/software/components/tactics/tactics.ml b/helm/software/components/tactics/tactics.ml
index 832469ae69b4a0a1329393a15b00c8b2f588df96..8b21c775382e4ea9edf77745f68612c18cbc51a8 100644 (file)
--- a/helm/software/components/tactics/tactics.ml
+++ b/helm/software/components/tactics/tactics.ml
@@ -27,6 +27,7 @@
 
 let absurd = NegationTactics.absurd_tac
 let apply = PrimitiveTactics.apply_tac
+let applyP = PrimitiveTactics.applyP_tac
 let applyS = Auto.applyS_tac
 let assumption = VariousTactics.assumption_tac
 let auto = Auto.auto_tac