define setlevel and prove setlevel_CARD

includes some stuck attempts to prove things about cardlt and cross -
my intuitive-looking statements might not even be true, since infinite
sets can be quite confusing.

luckily, can just side-step the whole issue and follow jrh's lemma
statements instead.
more modelset port

up to and including pairing operation