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