771def naturalEqual : (pi unrestricted left : Nat . (pi unrestricted right : Nat . Nat)) =
772 (lambda unrestricted left : Nat .
773 (lambda unrestricted right : Nat .
774 (nat-eliminate
775 (lambda unrestricted result : Nat . Nat)
776 (nat-eliminate
777 (lambda unrestricted result : Nat . Nat)
778 (succ zero)
779 (lambda unrestricted predecessor : Nat . (lambda unrestricted induction : Nat . zero))
780 (nat-less-than right left))
781 (lambda unrestricted predecessor : Nat . (lambda unrestricted induction : Nat . zero))
782 (nat-less-than left right))))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.