File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed
Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -33,15 +33,15 @@ def delabCheckingCanonical : DelabM (Bool × Term) := do
3333/-- Delaborate an expression with arity `arity` into a unary notation `mkStx` iff the argument
3434`arg` is a non-canonical instance (is not defeq to what is synthesized for its type, or else
3535instance synthesis fails). -/
36- def delabUnary (arity arg : ℕ ) (mkStx : Term → DelabM Term) : Delab :=
36+ def delabUnary (arity arg : Nat ) (mkStx : Term → DelabM Term) : Delab :=
3737 withOverApp arity <| whenPPOption Lean.getPPNotation do
3838 let (false , instD) ← withNaryArg arg delabCheckingCanonical | failure
3939 mkStx instD
4040
4141/-- Delaborate an expression with arity `arity` into a binary notation `mkStx` iff either
4242argument `arg₁` or `arg₂` are non-canonical instance (are not defeq to what is synthesized for
4343its type, or else instance synthesis fails). -/
44- def delabBinary (arity arg₁ arg₂ : ℕ ) (mkStx : Term → Term → DelabM Term) : Delab :=
44+ def delabBinary (arity arg₁ arg₂ : Nat ) (mkStx : Term → Term → DelabM Term) : Delab :=
4545 withOverApp arity <| whenPPOption Lean.getPPNotation do
4646 let (canonα?, instDα) ← withNaryArg arg₁ delabCheckingCanonical
4747 let (canonβ?, instDβ) ← withNaryArg arg₂ delabCheckingCanonical
You can’t perform that action at this time.
0 commit comments