18 lines
437 B
Text
18 lines
437 B
Text
/-
|
||
Copyright (c) 2017 Microsoft Corporation. All rights reserved.
|
||
Released under Apache 2.0 license as described in the file LICENSE.
|
||
Authors: Sebastian Ullrich
|
||
|
||
The identity monad.
|
||
-/
|
||
prelude
|
||
import init.control.lift
|
||
universe u
|
||
|
||
@[inline] def id_bind {α β : Type u} (x : α) (f : α → id β) : id β := f x
|
||
|
||
@[inline] instance : monad.{u u} id :=
|
||
{ pure := @id, bind := @id_bind }
|
||
|
||
@[inline] instance : monad_run id id :=
|
||
⟨@id⟩
|