1/1: Building WithLift (WithLift.idr)
Main> succNotZero : (S k) = Z -> Void
succNotZero
Main> recNotEqLift : (k = j -> Void) -> (S k) = (S j) -> Void
(recNotEqLift contra)
Main> recNotEq f Refl = f Refl
Main> Bye for now!