diff options
| author | Enrico Tassi | 2019-05-27 15:53:50 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2019-06-04 13:58:43 +0200 |
| commit | 06df92fffc05d501fefdcf949625a33bd52f1980 (patch) | |
| tree | 4ab56537d862e1797623d11e96d5483d388189fa /plugins | |
| parent | a7a6fa3219134004f1fc6c757f1c16281724f38f (diff) | |
[classes] remove program mode from the new_instance_* APIs
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ltac/rewrite.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/plugins/ltac/rewrite.ml b/plugins/ltac/rewrite.ml index caeedadbf4..792cd5f9ef 100644 --- a/plugins/ltac/rewrite.ml +++ b/plugins/ltac/rewrite.ml @@ -1795,8 +1795,7 @@ let declare_an_instance n s args = let declare_instance a aeq n s = declare_an_instance n s [a;aeq] let anew_instance atts binders (name,t) fields = - let program_mode = atts.program in - let _id = Classes.new_instance ~program_mode atts.polymorphic + let _id = Classes.new_instance atts.polymorphic name binders t (true, CAst.make @@ CRecord (fields)) ~global:atts.global ~generalize:false Hints.empty_hint_info in @@ -2025,7 +2024,7 @@ let add_morphism atts binders m s n = in let tac = Tacinterp.interp (make_tactic "add_morphism_tactic") in let _id, pstate = Classes.new_instance_interactive - ~program_mode:atts.program ~global:atts.global atts.polymorphic + ~global:atts.global atts.polymorphic instance_name binders instance_t ~generalize:false ~tac ~hook:(declare_projection n instance_id) Hints.empty_hint_info in |