diff options
| author | Matthieu Sozeau | 2015-10-27 13:55:45 -0400 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-10-27 14:03:42 -0400 |
| commit | ed7af646f2e486b7e96812ba2335e644756b70fd (patch) | |
| tree | 4f800531ad9238598d7c6231b6b165c167bd6c1f /toplevel/command.ml | |
| parent | 7bf9bbe2968802b48230d35d34c585201ee9e9b4 (diff) | |
Fix bugs 4389, 4390 and 4391 due to wrong handling of universe names
structure.
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 7c86d2d059..3995c4b1bc 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -38,8 +38,8 @@ open Indschemes open Misctypes open Vernacexpr -let do_universe l = Declare.do_universe l -let do_constraint l = Declare.do_constraint l +let do_universe poly l = Declare.do_universe poly l +let do_constraint poly l = Declare.do_constraint poly l let rec under_binders env sigma f n c = if Int.equal n 0 then snd (f env sigma c) else |