checkObject (Axiom _ t) context =
  do checkArgType t context
     return (reduceTerm t)


-- | Checks that the type of an an argument is well typed.
-- Argument types should either be contexts or objects of type *.
checkObject (Axiom _ t) context =
  do checkArgType t context
     return (reduceTerm t)


-- | Checks that the type of an an argument is well typed.
-- Argument types should either be contexts or objects of type *.
checkObject (Axiom _ t) context =
  do checkArgType t context
     return (reduceTerm t)


-- | Checks that the type of an an argument is well typed.
-- Argument types should either be contexts or objects of type *.