diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-10-24 14:35:25 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-10-25 17:42:55 +0200 |
| commit | bf4112094feb1a705d8bdaea3fb0febc4ef3ff59 (patch) | |
| tree | 49bf826bd68429694abb86df757d54147fb80554 /plugins/ssr | |
| parent | 0897d0f642c19419c513f9609782436bebf28f5b (diff) | |
[general] Remove Econstr dependency from `intf`
To this extent we factor out the relevant bits to a new file,
ltac_pretype.
Diffstat (limited to 'plugins/ssr')
| -rw-r--r-- | plugins/ssr/ssrcommon.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ssr/ssrcommon.ml b/plugins/ssr/ssrcommon.ml index d37c676e3..1f2d02093 100644 --- a/plugins/ssr/ssrcommon.ml +++ b/plugins/ssr/ssrcommon.ml @@ -227,7 +227,7 @@ let isAppInd gl c = let interp_refine ist gl rc = let constrvars = Tacinterp.extract_ltac_constr_values ist (pf_env gl) in let vars = { Glob_ops.empty_lvar with - Glob_term.ltac_constrs = constrvars; ltac_genargs = ist.Tacinterp.lfun + Ltac_pretype.ltac_constrs = constrvars; ltac_genargs = ist.Tacinterp.lfun } in let kind = Pretyping.OfType (pf_concl gl) in let flags = { |