diff options
| author | Pierre-Marie Pédrot | 2018-04-14 13:46:05 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-04-14 13:46:05 +0200 |
| commit | 2384fcb98640dbd9aeee4e8e43965d499e594815 (patch) | |
| tree | c7aaa89a76405ab8695d26590d76a971a170c850 /plugins/firstorder | |
| parent | 4f6681a4835758a27aaade3c18c21a5fe6d283c5 (diff) | |
| parent | e158df83522215b7699879c38906471598217866 (diff) | |
Merge PR #7136: Evar maps contain econstrs.
Diffstat (limited to 'plugins/firstorder')
| -rw-r--r-- | plugins/firstorder/sequent.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/firstorder/sequent.ml b/plugins/firstorder/sequent.ml index 83fbc2d5d8..7c612c0d8c 100644 --- a/plugins/firstorder/sequent.ml +++ b/plugins/firstorder/sequent.ml @@ -197,7 +197,7 @@ let extend_with_ref_list env sigma l seq = let l = expand_constructor_hints l in let f gr (seq, sigma) = let sigma, c = Evd.fresh_global env sigma gr in - let sigma, typ= Typing.type_of env sigma (EConstr.of_constr c) in + let sigma, typ= Typing.type_of env sigma c in (add_formula env sigma Hyp gr typ seq, sigma) in List.fold_right f l (seq, sigma) |