3 ================================================================================
5 AbsBinds [tald] [] [([tald], $d1{-rlI,x-}, d.C_al6)]
6 AbsBinds [] [] [([], op1_alJ, op1_ala)]
7 op1_ala xs_r3k = xs_r3k
8 d.C_al6 = ({-dict-} [] [op1_alJ])
12 [([talr], $d2{-rlK,x-}, d.B_alk)]
14 AbsBinds [] [] [([], op2_alM, op2_alo)]
15 op2_alo xs_r3s ys_r3t = xs_r3s
16 d.B_alk = ({-dict-} [d.C_alu] [op2_alM])
17 scsel_BShouldSucceedC{-alL,x-} =
18 _/\_ t12 -> \ tpl_B1 ->
19 case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2 -> tpl_B1;}
21 _/\_ t12 -> \ tpl_B1 ->
22 case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2 -> tpl_B2;}
23 AbsBinds [talG] [d.B_alC] []
24 op1{-r3B,x-} = _/\_ t12 -> \ tpl_B1 -> tpl_B1
25 AbsBinds [talH] [d.C_alF] []
26 ghc: module version changed to 1; reason: no old .hi file
27 _interface_ ShouldSucceed 1
31 ShouldSucceed B(op2) C(op1);
33 instance _forall_ [a] => {C [a]} = $d1;
34 instance _forall_ [a] {B a} => {B [a]} = $d2;
36 1 $d1 _:_ _forall_ [a] => {C [a]} ;;
37 1 $d2 _:_ _forall_ [a] {B a, C [a]} => {B [a]} ;;
38 1 class {C a} => B a where {op2 :: a -> a -> a} ;
39 1 class C a where {op1 :: a -> a} ;