checkObject (Prod name t o) context =
  do checkArgType t context
     checkObject o (concatTerm context name (reduceTerm t))
     return (C Star)
checkObject (Prod name t o) context =
  do checkArgType t context
     checkObject o (concatTerm context name (reduceTerm t))
     return (C Star)
checkObject (Prod name t o) context =
  do checkArgType t context
     checkObject o (concatTerm context name (reduceTerm t))
     return (C Star)