Add type functions (-) and ToNat1;  Turn FromNat1 into a closed family.