From 4baccd824d1fe40c57b25c6d3ce04a54c6a38420 Mon Sep 17 00:00:00 2001 From: Gaëtan Gilbert Date: Thu, 30 Nov 2017 14:58:45 +0100 Subject: Remove unused boolean from cl_context field of Typeclasses.typeclass --- vernac/classes.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'vernac/classes.ml') diff --git a/vernac/classes.ml b/vernac/classes.ml index b80741269..109584436 100644 --- a/vernac/classes.ml +++ b/vernac/classes.ml @@ -143,7 +143,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")) -- cgit v1.2.3