68629b2e5f
It produces non-termination because it triggers sub-problems of the
form (has_monad_lift_t t ?M), and this kind of sub-problem is bad
for the transitive closure rule:
instance has_monad_lift_t_trans (m n o) [has_monad_lift n o] [has_monad_lift_t m n] : has_monad_lift_t m o
The trick above only behaves well for synthesis subproblems that do not
contain sub-variables.
Note that the sub-problem (has_monad_lift_t t ?M) is created by a
similar rule used at has_coe_t.
instance {a : Type u₁} {b : Type u₂} {c : Type u₃} [has_coe a b] [has_coe_t b c] : has_coe_t a c
AND
instance {m n} [has_monad_lift_t m n] {α} : has_coe (m α) (n α) :=
We workaround the issue by disabling
instance {m n} [has_monad_lift_t m n] {α} : has_coe (m α) (n α)
and adding instances of it. Example:
meta instance (α : Type) : has_coe (tactic α) (solver α) := ...
meta instance (α : Type) : has_coe (tactic α) (prover α) := ...
meta instance (α : Type) : has_coe (tactic α) (smt_tactic α) := ...
48 lines
1.6 KiB
Text
48 lines
1.6 KiB
Text
/-
|
||
Copyright (c) 2016 Gabriel Ebner. All rights reserved.
|
||
Released under Apache 2.0 license as described in the file LICENSE.
|
||
Authors: Gabriel Ebner
|
||
-/
|
||
prelude
|
||
import init.category.state init.function init.coe
|
||
|
||
namespace monad
|
||
class monad_transformer (transformer : ∀m [monad m], Type → Type) :=
|
||
(is_monad : ∀m [monad m], monad (transformer m))
|
||
(monad_lift : ∀m [monad m] α, m α → transformer m α)
|
||
|
||
instance transformed_monad (m t) [monad_transformer t] [monad m] : monad (t m) :=
|
||
monad_transformer.is_monad t m
|
||
|
||
class has_monad_lift (m n : Type → Type) :=
|
||
(monad_lift : ∀α, m α → n α)
|
||
|
||
instance monad_transformer_lift (t m) [monad_transformer t] [monad m] : has_monad_lift m (t m) :=
|
||
⟨monad_transformer.monad_lift t m⟩
|
||
|
||
class has_monad_lift_t (m n : Type → Type) :=
|
||
(monad_lift : ∀α, m α → n α)
|
||
|
||
def monad_lift {m n} [has_monad_lift_t m n] {α} : m α → n α :=
|
||
has_monad_lift_t.monad_lift n α
|
||
|
||
@[reducible] def has_monad_lift_to_has_coe {m n} [has_monad_lift_t m n] {α} : has_coe (m α) (n α) :=
|
||
⟨monad_lift⟩
|
||
|
||
instance has_monad_lift_t_trans (m n o) [has_monad_lift n o] [has_monad_lift_t m n] : has_monad_lift_t m o :=
|
||
⟨ λα (ma : m α), has_monad_lift.monad_lift o α $ has_monad_lift_t.monad_lift n α ma ⟩
|
||
|
||
instance has_monad_lift_t_refl (m) [monad m] : has_monad_lift_t m m :=
|
||
⟨ λα, id ⟩
|
||
|
||
end monad
|
||
|
||
namespace state_t
|
||
|
||
def state_t_monad_lift (S) (m) [monad m] (α) (f : m α) : state_t S m α :=
|
||
take state, do res ← f, return (res, state)
|
||
|
||
instance (S) : monad.monad_transformer (state_t S) :=
|
||
⟨ state_t.monad S, state_t_monad_lift S ⟩
|
||
|
||
end state_t
|