Don't require two property names

[hadley]

library(S7)
foo <- new_class("foo", properties = list(new_property(name = "bar")))
#> Error: `property[[1]]` is missing a name

^{Created on 2023-09-28 with reprex v2.0.2}

Just need to check for this case in as_property().