2つの自然な引数をとり、それらの等価性の証明の多分を返す関数を書いてみたいと思います。 私は equal : (a: Nat) -> (b: Nat) -> Maybe ((a == b) = True)
equal a b = case (a == b) of
True => Just Refl
False => Nothing
にしようとしているが、私はこれを行うには
これは失敗します。 > the ({A : Type} -> A -> {B : Type} -> B -> (A, B)) MkPair
(input):1:5:When checking argument value to function Prelude.Basics.the:
Type mismatch between
A -> B1 -> (A, B1) (