给定 Agda 中的 function、一些参数和一个新值，如何生成新的 function，其中该参数的结果将是新值

Question

假设我有一些f: A -> B , a: A , b: B 。 我想要新的 function，它几乎是f的副本，但它应该为参数a生成b 。

我正在尝试这样的事情。

replace_f : ∀ {A B} (f : A -> B) (a : A) (b : B)
    -> (A -> B)
replace_f f a b = \ { a -> b ; attr -> f attr }

但是 lambda 定义中的a与我要替换a不同。 Agda 只是将其视为一个变量。

PS 我也尝试在replace_f fab var = if ⌊ Dec (var ≡ a) ⌋ then b else (f var)中使用Decideable和 prop equality。 但是， Set _p_391 !=< Dec _P_386 when checking that the expression Dec (var ≡ a) has type Dec _P_386

PPS 如果您想重现Decidable解决方案，请使用这些导入

open import Relation.Binary.PropositionalEquality using (_≡_)
open import Relation.Nullary
open import Relation.Nullary.Decidable
open import Relation.Binary.Core
open import Data.Bool

Answer 1

回答我的主管提出的问题。

他建议实施并提供A类型的相等性测试。

总体而言， replace_f将如下所示：

replace_f : ∀ {A B} (decide : (x : A) -> (y : A) -> Dec (x ≡ y)) (f : A -> B ) (a : A) (b : B ) -> (A -> B )
replace_f decide f a b var = if ⌊ decide var a ⌋ then b else (f var)

其中 decide 是用于比较的实际实现

实际上，您可以在 Agda 中自动派生 Eq 子句，请参阅Haskell Deriving Mechanism for Agda