diff options
Diffstat (limited to 'proofs/logic.mli')
-rw-r--r-- | proofs/logic.mli | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/proofs/logic.mli b/proofs/logic.mli index 560e57736..eec3de730 100644 --- a/proofs/logic.mli +++ b/proofs/logic.mli @@ -1,28 +1,26 @@ -(************************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *) -(* \VV/ **************************************************************) -(* // * This file is distributed under the terms of the *) -(* * GNU Lesser General Public License Version 2.1 *) -(************************************************************************) +(*********************************************************************** + v * The Coq Proof Assistant / The Coq Development Team + <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud + \VV/ ************************************************************* + // * This file is distributed under the terms of the + * GNU Lesser General Public License Version 2.1 + ***********************************************************************) (*i $Id$ i*) -(*i*) open Names open Term open Sign open Evd open Environ open Proof_type -(*i*) -(* This suppresses check done in [prim_refiner] for the tactic given in +(** This suppresses check done in [prim_refiner] for the tactic given in argument; works by side-effect *) val with_check : tactic -> tactic -(* [without_check] respectively means:\\ +(** [without_check] respectively means:\\ [Intro]: no check that the name does not exist\\ [Intro_after]: no check that the name does not exist and that variables in its type does not escape their scope\\ @@ -32,7 +30,7 @@ val with_check : tactic -> tactic no check that the name exist and that its type is convertible\\ *) -(* The primitive refiner. *) +(** The primitive refiner. *) val prim_refiner : prim_rule -> evar_map -> goal -> goal list * evar_map @@ -41,7 +39,7 @@ type proof_variable val proof_variable_index : identifier -> proof_variable list -> int -(*s Refiner errors. *) +(** {6 Refiner errors. } *) type refiner_error = |