diff options
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/dp/dp.ml | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/contrib/dp/dp.ml b/contrib/dp/dp.ml index b60a27e63..529a10509 100644 --- a/contrib/dp/dp.ml +++ b/contrib/dp/dp.ml @@ -5,9 +5,14 @@ open Term open Tacmach open Fol -let simplify gl = +type prover = Simplify | CVCLite | Harvey + +let dp prover gl = let concl = pf_concl gl in if not (is_Prop (pf_type_of gl concl)) then error "not a proposition"; - msgnl (str "nb of hyps = " ++ int (List.length (pf_hyps gl))); - pp_flush (); error "not yet implemented" + +let simplify = dp Simplify +let cvc_lite = dp CVCLite +let harvey = dp Harvey + |