diff options
| author | Maxime Dénès | 2016-10-28 15:44:06 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2016-10-28 15:44:06 +0200 |
| commit | d2bb28988b9424620740c34f4475f0205e0a0f73 (patch) | |
| tree | 28f01f6f84ac25dd8067f0635478b6b8229e72ce /engine/termops.ml | |
| parent | 3e98d3e4941f5098d743dffa8a032fd623a6a030 (diff) | |
| parent | 0aec9033a0b78ee1629f7aabce1c8a2e3cfbe619 (diff) | |
Merge remote-tracking branch 'github/pr/321' into v8.6
Was PR#321: Handling of section variables in hints
Diffstat (limited to 'engine/termops.ml')
| -rw-r--r-- | engine/termops.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index 17e56ec31e..35cacc65b2 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -599,6 +599,10 @@ let collect_vars c = | _ -> fold_constr aux vars c in aux Id.Set.empty c +let vars_of_global_reference env gr = + let c, _ = Universes.unsafe_constr_of_global gr in + vars_of_global (Global.env ()) c + (* Tests whether [m] is a subterm of [t]: [m] is appropriately lifted through abstractions of [t] *) |