我如何谈论Agda中的特定构造函数

Question

说我有

minus : Nat -> Nat -> Maybe Nat
minus zero zero       = Just zero
minus zero _          = Nothing
minus n zero          = Just n
minus (suc n) (suc m) = minus n m

我定义了自己的减号

{{1}}

我想证明，如果m＆gt; n，（减去m n）总是吐出一个（Just Nat）。 我想知道如何在一种类型中对此声明进行编码。

谢谢！

Answer 1

您可以使用标准库Is-just。您的陈述如下：

pass = input('Enter your password')
score = validate_password(pass)
while score <= 3:
    pass = input('Enter another password')
    score = validate_password(pass)