theorem cardeq (_s1 _s2: nat): $ _s1 = _s2 -> card _s1 = card _s2 $;
_s1 = _s2 -> _s1 = _s2
_s1 = _s2 -> card _s1 = card _s2