
Untitled
By: a guest on
Mar 6th, 2010 | syntax:
Prolog | size: 0.25 KB | hits: 474 | expires: Never
trans : ∀ x y w -> x ≡ y -> y ≡ w -> x ≡ w
trans z z z x≡y y≡w = triv
trans z z (s y) x≡y ()
trans z (s y) w () y≡w
trans (s y) z w () y≡w
trans (s y) (s y') z x≡y ()
trans (s x) (s y) (s w) x≡y y≡w = trans x y w x≡y y≡w