diff options
| author | Pierre-Marie Pédrot | 2014-04-23 21:38:37 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-04-23 22:58:51 +0200 |
| commit | 5bddbf141cc6462563cdc86dcc7c02edccd295fd (patch) | |
| tree | 9ebc3de6396f376064b67c5da0202b1e33ed22af /pretyping/evarsolve.ml | |
| parent | 74ddca99c649f2f8c203582a9b82bddf64fb6b52 (diff) | |
Better representation of evar filters: we represent the vacuous filters of
any length with a [None] representation and ensure that this representation
is canonical through the restricted interface.
Diffstat (limited to 'pretyping/evarsolve.ml')
| -rw-r--r-- | pretyping/evarsolve.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarsolve.ml b/pretyping/evarsolve.ml index 89a63a13cf..4f982114af 100644 --- a/pretyping/evarsolve.ml +++ b/pretyping/evarsolve.ml @@ -494,7 +494,7 @@ let materialize_evar define_fun env evd k (evk1,args1) ty_in_env = let evd,b = define_evar_from_virtual_equation define_fun env evd b sign filter inst_in_env in evd,Some b in - (push_named_context_val (id,b_in_sign,t_in_sign) sign, Filter.cons true filter, + (push_named_context_val (id,b_in_sign,t_in_sign) sign, Filter.extend 1 filter, (mkRel 1)::(List.map (lift 1) inst_in_env), (mkRel 1)::(List.map (lift 1) inst_in_sign), push_rel d env,evd,id::avoid)) |