identical <- function(x, y) .Internal(identical(x,y))

isTRUE <- function(x) identical(TRUE, x)