1 2 3 4 5 6 7 8 9 10 11 12 13
abstract Arithm = { cat Prop ; Nat ; fun Zero : Nat ; Succ : Nat -> Nat ; Even : Nat -> Prop ; And : Prop -> Prop -> Prop ; }