test: example that requires the instance arg reordering
This commit is contained in:
parent
fd61812b6e
commit
7c1c0dc01e
1 changed files with 33 additions and 0 deletions
33
tests/lean/run/typeclass_loop.lean
Normal file
33
tests/lean/run/typeclass_loop.lean
Normal file
|
|
@ -0,0 +1,33 @@
|
|||
set_option trace.class_instances true
|
||||
|
||||
example (M : Type → Type) [Monad M] : ExceptT Unit (ReaderT Unit (StateT Unit M)) Unit := do
|
||||
ctx ← read;
|
||||
pure ()
|
||||
/-
|
||||
...
|
||||
[class_instances] (1) ?x_8 : HasMonadLift
|
||||
(ReaderT ?x_10
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT
|
||||
(OptionT (OptionT (OptionT (OptionT (OptionT (OptionT (OptionT (OptionT (OptionT (OptionT (OptionT List))))))))))))))))))))))))))))))
|
||||
(ExceptT Unit (ReaderT Unit (StateT Unit M))) := @ExceptT.exceptTOfExcept ?x_82 ?x_83 ?x_84
|
||||
failed is_def_eq
|
||||
...
|
||||
error: maximum class-instance resolution depth has been reached
|
||||
-/
|
||||
Loading…
Add table
Reference in a new issue