Question

我正在尝试在Idris中写出2^n * 2^m = 2^(n+m)的证明。现在我有这个：

expLaw : (power 2 n) * (power 2 m) = power 2 (n + m)
expLaw {n=Z} {m} = plusZeroRightNeutral (power 2 m)
expLaw {n=S n'} {m=m'} = 
  trans (multAssociative 2 (power 2 n') (power 2 m')) $ 
  cong {f=mult 2} $ expLaw {n=n'} {m=m'}

这给了我错误：

When checking an application of function trans:
        Type mismatch between
                mult 2 (power 2 n' * power 2 m') = mult 2 (power 2 (n' + m')) (Type of cong powExp)
        and
                mult (mult 2 (power 2 n')) (power 2 m') = plus (power 2 (plus n' m')) (plus (power 2 (plus n' m')) 0) (Expected type)

        Specifically:
                Type mismatch between
                        mult 2 (power 2 (n' + m'))
                and
                        plus (power 2 (plus n' m')) (plus (power 2 (plus n' m')) 0)

据我所知，这实际上是在说它要2 * 2^(n+m)的地方看到2^(n+m) + (2^(n+m) + 0)。但是，根据马尔特的定义，前者应简单地归结为后者。特别是，以下编译没有问题：

foo : 2 * a = a + (a + 0)
foo = Refl

对我来说，这表明扩展正在按我的预期进行。但是由于某种原因，在我的expLaw实现中，编译器被卡住了。我想知道它是否与mult和plus和*和+的使用有关，但是我不确定。我该如何解决？

或者，如果有人有更好的方法来实现expLaw，我将很高兴听到它。

Answer 1

它有助于使用let … in …块逐步添加证明，因此您可以轻松检查类型。错误发生在trans下，因此给出

expLaw : (power 2 n) * (power 2 m) = power 2 (n + m)
expLaw {n=Z} {m} = plusZeroRightNeutral (power 2 m)
expLaw {n=S n'} {m=m'} =
  let prf1 = cong {f=mult 2} $ expLaw {n=n'} {m=m'} in
  let prf2 = multAssociative 2 (power 2 n') (power 2 m') in
  ?hole

> :t hole
  m' : Nat
  n' : Nat
  prf1 : plus (mult (power 2 n') (power 2 m'))
              (plus (mult (power 2 n') (power 2 m')) 0) =
         plus (power 2 (plus n' m')) (plus (power 2 (plus n' m')) 0)
  prf2 : plus (mult (power 2 n') (power 2 m'))
              (plus (mult (power 2 n') (power 2 m')) 0) =
         mult (plus (power 2 n') (plus (power 2 n') 0)) (power 2 m')
--------------------------------------
hole : mult (plus (power 2 n') (plus (power 2 n') 0)) (power 2 m') =
       plus (power 2 (plus n' m')) (plus (power 2 (plus n' m')) 0)

您会发现等号prf2 : a = b，prf1 : a = c的顺序与trans : (a = b) -> (b = c) -> a = c不匹配。但是，只需使用简单的sym : (a = b) -> b = a即可。因此，您几乎拥有了。：-）

 …
 let prf3 = trans (sym prf2) prf1 in
 prf3

伊德里斯不会在指数规律的证明中扩大“ mult”

1 个答案: