By: |
RewriteOfThm
Thm* 'a:S.
Thm* all
Thm* ( l1:hlist('a). all
Thm* ( l1:hlist('a). ( l2:hlist('a). equal
Thm* ( l1:hlist('a). ( l2:hlist('a). (length(append(l1,l2))
Thm* ( l1:hlist('a). ( l2:hlist('a). ,add(length(l1),length(l2)))))
(SimpsetC [`hol_to_nuprl`;`bequal`]) |