diff options
Diffstat (limited to 'library/assumptions.mli')
| -rw-r--r-- | library/assumptions.mli | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/library/assumptions.mli b/library/assumptions.mli index 7756c575..0a2c62f5 100644 --- a/library/assumptions.mli +++ b/library/assumptions.mli @@ -1,28 +1,30 @@ (************************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2014 *) +(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2015 *) (* \VV/ **************************************************************) (* // * This file is distributed under the terms of the *) (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) +open Util open Names open Term -open Environ (** A few declarations for the "Print Assumption" command @author spiwack *) type context_object = - | Variable of identifier (** A section variable or a Let definition *) - | Axiom of constant (** An axiom or a constant. *) - | Opaque of constant (** An opaque constant. *) + | Variable of Id.t (** A section variable or a Let definition *) + | Axiom of constant (** An axiom or a constant. *) + | Opaque of constant (** An opaque constant. *) + | Transparent of constant (** A transparent constant *) (** AssumptionSet.t is a set of [assumption] *) -module OrderedContextObject : Set.OrderedType with type t = context_object -module ContextObjectMap : Map.S with type key = context_object +module ContextObjectSet : Set.S with type elt = context_object +module ContextObjectMap : Map.ExtS + with type key = context_object and module Set := ContextObjectSet (** collects all the assumptions (optionally including opaque definitions) on which a term relies (together with their type) *) val assumptions : - ?add_opaque:bool -> transparent_state -> constr -> + ?add_opaque:bool -> ?add_transparent:bool -> transparent_state -> constr -> Term.types ContextObjectMap.t |