diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-12-19 01:30:45 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:30:44 +0100 |
commit | aaf75678a13d9c26341e762ab8e56b957cf4c771 (patch) | |
tree | 8e7042f6630053f7c130957fde011929d45fde13 /pretyping/evarsolve.mli | |
parent | 594ac9654164e377e8598894019cc4445509d570 (diff) |
Dedicated datatype for aliases in Evarsolve.
Diffstat (limited to 'pretyping/evarsolve.mli')
-rw-r--r-- | pretyping/evarsolve.mli | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/pretyping/evarsolve.mli b/pretyping/evarsolve.mli index f2102f8cd..b827a0ca4 100644 --- a/pretyping/evarsolve.mli +++ b/pretyping/evarsolve.mli @@ -11,6 +11,10 @@ open EConstr open Evd open Environ +type alias + +val of_alias : alias -> EConstr.t + type unification_result = | Success of evar_map | UnifFailure of evar_map * Pretype_errors.unification_error @@ -58,12 +62,12 @@ val solve_simple_eqn : conv_fun -> ?choose:bool -> env -> evar_map -> val reconsider_conv_pbs : conv_fun -> evar_map -> unification_result val is_unification_pattern_evar : env -> evar_map -> existential -> constr list -> - constr -> constr list option + constr -> alias list option val is_unification_pattern : env * int -> evar_map -> constr -> constr list -> - constr -> constr list option + constr -> alias list option -val solve_pattern_eqn : env -> evar_map -> constr list -> constr -> constr +val solve_pattern_eqn : env -> evar_map -> alias list -> constr -> constr val noccur_evar : env -> evar_map -> Evar.t -> constr -> bool |