α : Type ?u.862147
p : PosNum
⊢ castNum <$> ofZNum' (ZNum.pos p) = toNat' ↑↑p
α : Type ?u.862147
p : PosNum
⊢ castNum <$> ofZNum' (ZNum.pos p) = toNat' ↑p
rw [← PosNum.to_nat_to_int p]
no goals
α : Type ?u.862147
p : PosNum
⊢ castNum <$> ofZNum' (ZNum.pos p) = toNat' ↑↑p
rfl
α : Type ?u.862147
p : PosNum
⊢ ↑↑(succ' (PosNum.pred' p)) = ↑p
α : Type ?u.862147
p : PosNum
⊢ ↑(↑(PosNum.pred' p) + 1) = ↑p
rw [← succ'_to_nat]
no goals
α : Type ?u.862147
p : PosNum
⊢ ↑↑(succ' (PosNum.pred' p)) = ↑p
simp