max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: add helper instance

Browse source
This commit is contained in:
Leonardo de Moura 2020-10-05 11:24:35 -07:00
parent 82e11c401d
commit 5adb04b10e
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Init/Control/Id.lean
View file

@ -33,6 +33,9 @@ instance : Monad Id :=
@[inline] protected def run {α : Type u} (x : Id α) : α :=
x
instance {α} [HasOfNat α] : HasOfNat (Id α) :=
inferInstanceAs (HasOfNat α)
instance : MonadRun id Id :=
⟨@Id.run⟩