diff options
| author | Matthieu Sozeau | 2016-01-23 15:17:29 -0500 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-01-23 15:58:06 -0500 |
| commit | 5cbcc8fd761df0779f6202fef935f07cfef8a228 (patch) | |
| tree | 886d05ab59b157b812879facc6ef3fa3defc7d20 /tactics | |
| parent | ccdc62a6b4722c38f2b37cbf21b14e5094255390 (diff) | |
Implement support for universe binder lists in Instance and Program Fixpoint/Definition.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/rewrite.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/rewrite.ml b/tactics/rewrite.ml index 74bb6d5976..83742bfbdd 100644 --- a/tactics/rewrite.ml +++ b/tactics/rewrite.ml @@ -1703,7 +1703,7 @@ let rec strategy_of_ast = function let mkappc s l = CAppExpl (Loc.ghost,(None,(Libnames.Ident (Loc.ghost,Id.of_string s)),None),l) let declare_an_instance n s args = - ((Loc.ghost,Name n), Explicit, + (((Loc.ghost,Name n),None), Explicit, CAppExpl (Loc.ghost, (None, Qualid (Loc.ghost, qualid_of_string s),None), args)) @@ -1919,7 +1919,7 @@ let add_morphism glob binders m s n = let poly = Flags.is_universe_polymorphism () in let instance_id = add_suffix n "_Proper" in let instance = - ((Loc.ghost,Name instance_id), Explicit, + (((Loc.ghost,Name instance_id),None), Explicit, CAppExpl (Loc.ghost, (None, Qualid (Loc.ghost, Libnames.qualid_of_string "Coq.Classes.Morphisms.Proper"),None), [cHole; s; m])) |