X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_tactics%2Fdeclarative.mli;fp=matita%2Fcomponents%2Fng_tactics%2Fdeclarative.mli;h=d345275b4b6c057b99db729af836c946c4debe07;hb=433e66b381d1b89e48c05d517494fc300fd0abb5;hp=a7ec0e44d12260c8ba840e831e6e6991ef120c25;hpb=185541ccf10a6c4bf69b3db36fdc4ebc09e4cc42;p=helm.git diff --git a/matita/components/ng_tactics/declarative.mli b/matita/components/ng_tactics/declarative.mli index a7ec0e44d..d345275b4 100644 --- a/matita/components/ng_tactics/declarative.mli +++ b/matita/components/ng_tactics/declarative.mli @@ -23,5 +23,11 @@ * http://cs.unibo.it/helm/. *) -val assume : string -> NotationPt.term -> 's NTacStatus.tactic -val suppose : NotationPt.term -> string -> NotationPt.term option -> 's NTacStatus.tactic +type just = [ `Term of NTacStatus.tactic_term | `Auto of NTacStatus.tactic_term GrafiteAst.aauto_params ] + +val assume : string -> NTacStatus.tactic_term -> NTacStatus.tactic_term option -> 's NTacStatus.tactic +val suppose : NTacStatus.tactic_term -> string -> NTacStatus.tactic_term option -> 's NTacStatus.tactic +val we_need_to_prove : NTacStatus.tactic_term -> string option -> NTacStatus.tactic_term option -> 's NTacStatus.tactic +val bydone : just -> 's NTacStatus.tactic +val by_just_we_proved : just -> NTacStatus.tactic_term -> string option -> NTacStatus.tactic_term +option -> 's NTacStatus.tactic