aboutsummaryrefslogtreecommitdiffhomepage
path: root/vernac/record.ml
diff options
context:
space:
mode:
authorGravatar Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net>2017-11-30 14:58:45 +0100
committerGravatar Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net>2017-11-30 14:58:45 +0100
commit4baccd824d1fe40c57b25c6d3ce04a54c6a38420 (patch)
treefc9a26300e3dc775c86151db3142b23625be8b1c /vernac/record.ml
parentee45637ac2431fe2df1994f2337d8801e2aeff9a (diff)
Remove unused boolean from cl_context field of Typeclasses.typeclass
Diffstat (limited to 'vernac/record.ml')
-rw-r--r--vernac/record.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/record.ml b/vernac/record.ml
index 1d255b08e..6b8753b60 100644
--- a/vernac/record.ml
+++ b/vernac/record.ml
@@ -520,7 +520,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