Require Export Lci.
Require Export misc.
Require Export Arith.
Require Export groups.
Require Export rings.
Require Export ZArith.
(* Addition on Z, (Z, +) is a group *)
Definition IdZ (x : Z) := True.
(* Multiplication on Z, (Z, +, *, 0, 1) is a unitary commutative ring *)
(* Z is an integral domain *)

Theorem integrityZ : integrity Z Zmult 0%Z.