X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Ftactics%2Fdeclarative.ml;h=a1c8cab690d2bc8c8e5915e44d371653d969a1ec;hb=667818e2e343670ba27316a496a43f5e0d89400a;hp=c22d51af27f8f8c49a8b54a1b5367733eac940dd;hpb=6995a7717fd0c760c0608ed9225e9f2dbc14d7d1;p=helm.git diff --git a/components/tactics/declarative.ml b/components/tactics/declarative.ml index c22d51af2..a1c8cab69 100644 --- a/components/tactics/declarative.ml +++ b/components/tactics/declarative.ml @@ -1,3 +1,28 @@ +(* Copyright (C) 2006, HELM Team. + * + * This file is part of HELM, an Hypertextual, Electronic + * Library of Mathematics, developed at the Computer Science + * Department, University of Bologna, Italy. + * + * HELM is free software; you can redistribute it and/or + * modify it under the terms of the GNU General Public License + * as published by the Free Software Foundation; either version 2 + * of the License, or (at your option) any later version. + * + * HELM is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with HELM; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, + * MA 02111-1307, USA. + * + * For details, see the HELM World-Wide-Web page, + * http://cs.unibo.it/helm/. + *) + let assume id t = Tacticals.then_ ~start: @@ -29,7 +54,6 @@ let by_term_we_proved t ty id = let bydone t = (Tactics.apply ~term:t) - ;; let we_need_to_prove t id =