X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Ftactics%2FnegationTactics.ml;h=7ee79e534aa1907cea1beca63580b55a9dc42836;hb=da59a744767c799ad287489c55f2ff972f93d93c;hp=8f05ae436bc450d4697cf4afc69e652b1db8c2dd;hpb=8b55faddb06e3c4b0a13839210bb49170939b33e;p=helm.git diff --git a/helm/ocaml/tactics/negationTactics.ml b/helm/ocaml/tactics/negationTactics.ml index 8f05ae436..7ee79e534 100644 --- a/helm/ocaml/tactics/negationTactics.ml +++ b/helm/ocaml/tactics/negationTactics.ml @@ -23,6 +23,8 @@ * http://cs.unibo.it/helm/. *) +(* $Id$ *) + let absurd_tac ~term = let absurd_tac ~term status = let (proof, goal) = status in