abstract Arithm = {

  cat
    Prop ;
    Nat ;

  fun
    Zero : Nat ;
    Succ : Nat -> Nat ;
    Even : Nat -> Prop ;
    And  : Prop -> Prop -> Prop ;

}