include "ground/arith/pnat_dis.ma".
include "ground/arith/nat.ma".
-(* NON-NEGATIVE INTEGERS ****************************************************)
+(* PREDECESSOR FOR NON-NEGATIVE INTEGERS ************************************)
(*** pred *)
definition npred (m): nat ≝ match m with
].
interpretation
- "predecessor (non-negative integers"
+ "predecessor (non-negative integers)"
'DownArrow m = (npred m).
-(* Basic rewrites ***********************************************************)
+(* Basic constructions ******************************************************)
+(*** pred_O *)
lemma npred_zero: 𝟎 = ↓𝟎.
// qed.