diff options
author | Matej Košík <matej.kosik@inria.fr> | 2017-06-07 14:25:07 +0200 |
---|---|---|
committer | Matej Košík <matej.kosik@inria.fr> | 2017-06-07 14:49:13 +0200 |
commit | 34dd34065111c5abe68e88a79a77e482e79489a7 (patch) | |
tree | 624eb098d442a5b30e55729404830b8fe7bac0bb /plugins/ssr/ssrcommon.mli | |
parent | 661940fd55a925a6f17f6025f5d15fc9f5647cf9 (diff) |
Put "ssreflect" behind "API".
Diffstat (limited to 'plugins/ssr/ssrcommon.mli')
-rw-r--r-- | plugins/ssr/ssrcommon.mli | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/plugins/ssr/ssrcommon.mli b/plugins/ssr/ssrcommon.mli index 834b7b722..1b6a700b2 100644 --- a/plugins/ssr/ssrcommon.mli +++ b/plugins/ssr/ssrcommon.mli @@ -8,6 +8,7 @@ (* This file is (C) Copyright 2006-2015 Microsoft Corporation and Inria. *) +open API open Names open Environ open Proof_type @@ -173,12 +174,12 @@ val pf_type_id : Proof_type.goal Evd.sigma -> EConstr.types -> Id.t val pf_abs_evars : Proof_type.goal Evd.sigma -> evar_map * EConstr.t -> - int * EConstr.t * Constr.existential_key list * + int * EConstr.t * Evar.t list * Evd.evar_universe_context val pf_abs_evars2 : (* ssr2 *) Proof_type.goal Evd.sigma -> Evar.t list -> evar_map * EConstr.t -> - int * EConstr.t * Constr.existential_key list * + int * EConstr.t * Evar.t list * Evd.evar_universe_context val pf_abs_cterm : Proof_type.goal Evd.sigma -> int -> EConstr.t -> EConstr.t @@ -214,7 +215,7 @@ val pf_mkSsrConst : string -> Proof_type.goal Evd.sigma -> EConstr.t * Proof_type.goal Evd.sigma -val new_wild_id : tac_ctx -> Names.identifier * tac_ctx +val new_wild_id : tac_ctx -> Names.Id.t * tac_ctx val pf_fresh_global : @@ -228,7 +229,7 @@ val is_tagged : string -> string -> bool val has_discharged_tag : string -> bool val ssrqid : string -> Libnames.qualid val new_tmp_id : - tac_ctx -> (Names.identifier * Names.name ref) * tac_ctx + tac_ctx -> (Names.Id.t * Names.name ref) * tac_ctx val mk_anon_id : string -> Proof_type.goal Evd.sigma -> Id.t val pf_abs_evars_pirrel : Proof_type.goal Evd.sigma -> @@ -252,7 +253,7 @@ val red_product_skip_id : env -> evar_map -> EConstr.t -> EConstr.t val ssrautoprop_tac : - (Constr.existential_key Evd.sigma -> Constr.existential_key list Evd.sigma) ref + (Evar.t Evd.sigma -> Evar.t list Evd.sigma) ref val mkProt : EConstr.t -> |