-- Doesn't typecheck.
-- _0_4_5 ::
--   Triangle Zero
--            (Succ (Succ (Succ (Succ Zero))))
--            (Succ (Succ (Succ (Succ (Succ Zero)))))
-- _0_4_5 = Refl

-- Inferred type:
-- 'True :~: 'True
_3_4_5' = $(triangle 3 4 5)
_3_4_5' = $(triangle 3 4 5)
_3_4_5' = $(triangle 3 4 5)