90a79a0b06
Now, `universe` may declare many universes. The goal is to make it consistent with the `variable` command
7 lines
307 B
Text
7 lines
307 B
Text
universe u v
|
||
|
||
@[inline] def ex1 {σ : Type u} {m : Type u → Type v} [Functor m] {α : Type u} (x : StateT σ m α) (s : σ) : m α :=
|
||
Functor.map Prod.fst (x s)
|
||
|
||
@[inline] def ex2 {σ : Type u} {m : Type u → Type v} [Functor m] {α : Type u} (x : StateT σ m α) (s : σ) : m α :=
|
||
Prod.fst <$> x s
|