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''})