fix: typo at unfoldBothDefEq
This commit is contained in:
parent
ff0f3bfc61
commit
46d1111d3d
2 changed files with 2 additions and 2 deletions
|
|
@ -1138,7 +1138,7 @@ private def unfoldBothDefEq (fn : Name) (t s : Expr) : MetaM LBool := do
|
|||
pure LBool.true
|
||||
else
|
||||
unfold t
|
||||
(unfold s (pure LBool.false) (fun s => isDefEqRight fn t s))
|
||||
(unfold s (pure LBool.undef) (fun s => isDefEqRight fn t s))
|
||||
(fun t => unfold s (isDefEqLeft fn t s) (fun s => isDefEqLeftRight fn t s))
|
||||
| _, _ => pure LBool.false
|
||||
|
||||
|
|
|
|||
|
|
@ -9,7 +9,7 @@ inductive Ty where
|
|||
| bool
|
||||
| fn (a r : Ty)
|
||||
|
||||
@[reducible] def Ty.interp : Ty → Type
|
||||
abbrev Ty.interp : Ty → Type
|
||||
| int => Int
|
||||
| bool => Bool
|
||||
| fn a r => a.interp → r.interp
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue