diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-12-27 09:48:38 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-12-27 09:48:38 +0100 |
| commit | 9a8737360c72735e2099e4d81c9448f37311b498 (patch) | |
| tree | 1964cb69a389a1b4292c5d1a546e145bbba548a8 /vernac | |
| parent | 7fa691096df2ab8924f3449f588a6a9d6c81b5f7 (diff) | |
| parent | 4baccd824d1fe40c57b25c6d3ce04a54c6a38420 (diff) | |
Merge PR #6289: Remove unused boolean from cl_context field of Typeclasses.typeclass
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/classes.ml | 2 | ||||
| -rw-r--r-- | vernac/record.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/vernac/classes.ml b/vernac/classes.ml index c2e9a5ab4..6914f899b 100644 --- a/vernac/classes.ml +++ b/vernac/classes.ml @@ -141,7 +141,7 @@ let new_instance ?(abstract=false) ?(global=false) ?(refine= !refine_instance) Implicit_quantifiers.implicit_application Id.Set.empty ~allow_partial:false (fun avoid (clname, _) -> match clname with - | Some (cl, b) -> + | Some cl -> let t = CAst.make @@ CHole (None, Misctypes.IntroAnonymous, None) in t, avoid | None -> failwith ("new instance: under-applied typeclass")) diff --git a/vernac/record.ml b/vernac/record.ml index 114b55cb4..a7eb19dc8 100644 --- a/vernac/record.ml +++ b/vernac/record.ml @@ -523,7 +523,7 @@ let declare_class finite def cum ubinders univs id idbuild paramimpls params ari let ctx_context = List.map (fun decl -> match Typeclasses.class_of_constr Evd.empty (EConstr.of_constr (RelDecl.get_type decl)) with - | Some (_, ((cl,_), _)) -> Some (cl.cl_impl, true) + | Some (_, ((cl,_), _)) -> Some cl.cl_impl | None -> None) params, params in |