fact: Definition eq_int (z z':Z) : bool := match z, z' with | Zpos n, Zpos m => eq_nat (nat_of_P n) (nat_of_P m) | Z0, Z0 => true | Zneg n, Zneg m => eq_nat (nat_of_P n) (nat_of_P m) | _, _ => false end.
imports: CoRN.logic.CLogic Coq.Bool.Bool