1 2 3 4 5 6 7 8
concrete DummyNatCnc of DummyNat = { lincat Nat = Str ; lin zero = "z" ; succ n = n ; plus m n = m ++ n ; }