convertContext :: LocalConvMonad r m => LHsContext GhcRn -> Term -> m Term
convertContext lctx tyBody = do
  classes <- traverse (fmap (Generalized Coq.Implicit) . convertLType) (unLoc lctx)
  pure . maybe tyBody (Forall ?? tyBody) $ nonEmpty classes

--------------------------------------------------------------------------------
convertContext :: LocalConvMonad r m => LHsContext GhcRn -> Term -> m Term
convertContext lctx tyBody = do
  classes <- traverse (fmap (Generalized Coq.Implicit) . convertLType) (unLoc lctx)
  pure . maybe tyBody (Forall ?? tyBody) $ nonEmpty classes

--------------------------------------------------------------------------------
convertContext lctx tyBody = do
  classes <- traverse (fmap (Generalized Coq.Implicit) . convertLType) (unLoc lctx)
  pure . maybe tyBody (Forall ?? tyBody) $ nonEmpty classes

--------------------------------------------------------------------------------