1
Finite = Lfp +
2
consts Fin :: "'a set => 'a set set"
3
rules
4
Fin_def "Fin(A) == lfp(%F. insert({}, UN x:A. insert(x)``F))"
5
end