diff options
| author | Gaetan Gilbert | 2017-03-31 13:53:08 +0200 |
|---|---|---|
| committer | Gaetan Gilbert | 2017-04-03 18:47:58 +0200 |
| commit | 83f321c19cfd97e386d7bd5f0aca24ea46c43d2b (patch) | |
| tree | 34ad1f99dee7fe27121a09672f21af455a5bea2a /toplevel/classes.ml | |
| parent | 5bb3ea7de91829c41e22c3e44f805bee06bc917a (diff) | |
Instances should obey universe binders even when defined by tactics.
Diffstat (limited to 'toplevel/classes.ml')
| -rw-r--r-- | toplevel/classes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/classes.ml b/toplevel/classes.ml index 1528cbb2f6..8142d48d88 100644 --- a/toplevel/classes.ml +++ b/toplevel/classes.ml @@ -332,7 +332,7 @@ let new_instance ?(abstract=false) ?(global=false) ?(refine= !refine_instance) p the refinement manually.*) let gls = List.rev (Evd.future_goals evm) in let evm = Evd.reset_future_goals evm in - Lemmas.start_proof id kind evm termtype + Lemmas.start_proof id ?pl kind evm termtype (Lemmas.mk_hook (fun _ -> instance_hook k pri global imps ?hook)); (* spiwack: I don't know what to do with the status here. *) |