X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Focaml%2Ftactics%2FintroductionTactics.ml;h=9ed3647c1306370a3aa3096f5489ffab81c15828;hb=6bbeb650abc3a94e76d683aa47b2e46254d495d1;hp=6bf8ab6c1e37d339c37ac5afaef982fe148c3ea1;hpb=8b55faddb06e3c4b0a13839210bb49170939b33e;p=helm.git diff --git a/helm/ocaml/tactics/introductionTactics.ml b/helm/ocaml/tactics/introductionTactics.ml index 6bf8ab6c1..9ed3647c1 100644 --- a/helm/ocaml/tactics/introductionTactics.ml +++ b/helm/ocaml/tactics/introductionTactics.ml @@ -23,6 +23,8 @@ * http://cs.unibo.it/helm/. *) +(* $Id$ *) + let fake_constructor_tac ~n (proof, goal) = let module C = Cic in let module R = CicReduction in