HAS_SIZE_CONV : term -> thm
# HAS_SIZE_CONV `s HAS_SIZE 1`;;
...
val it : thm = |- s HAS_SIZE 1 <=> (?a. s = {a})
# HAS_SIZE_CONV `t HAS_SIZE 3`;;
...
val it : thm =
|- t HAS_SIZE 3 <=>
(?a a' a''. ~(a' = a'') /\ ~(a = a') /\ ~(a = a'') /\ t = {a, a', a''})