deSugar \
deriving \
numeric \
- printing \
reader \
rename \
simplCore \
stranal \
typecheck
+# printing \
# io \
# programs
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/should_compile.mk
-HC_OPTS += -dcore-lint -fglasgow-exts
+HC_OPTS += -noC -dcore-lint -fglasgow-exts
# Note that these tests are still in a state of flux... don't believe errors
# they report. In fact, these aren't really very good tests at all...
-ghc: module version changed to 1; reason: no old .hi file
cc001.hs:5:
- Cannot resolve the ambiguous context (PrelGHC.CCallable aJC)
- `PrelGHC.CCallable aJC' arising from an argument in the _ccall_ to `foo', namely `(Prelude.undefined ())' at cc001.hs:5
+ Ambiguous type variable(s)
+ `aQf'
+ in the constraint `PrelGHC.CCallable aQf'
+ arising from an argument in the _ccall_ to `foo', namely `(undefined ())' at cc001.hs:5
Compilation had errors
-PrelForeign.hi:23:
+PrelForeign.hi:19:
Constructors for `ForeignObj' not visible when checking `PrelGHC.CCallable' instance
(Try either importing ForeignObj non-abstractly or compile using -fno-prune-tydecls ..)
cc002.hs:18:
- No instance for: `PrelGHC.CCallable ForeignObj'
- arising from an argument in the _ccall_ to `c', namely `x', at cc002.hs:18
+ No instance for `PrelGHC.CCallable ForeignObj'
+ (arising from an argument in the _ccall_ to `c', namely `x' at cc002.hs:18)
cc002.hs:10:
- No instance for: `PrelGHC.CReturnable ForeignObj'
- arising from the result of the _ccall_ to a, at cc002.hs:10
+ No instance for `PrelGHC.CReturnable ForeignObj'
+ (arising from the result of the _ccall_ to `a' at cc002.hs:10)
Compilation had errors
cc004.hs:2:
Cannot generalise these overloadings (in a _ccall_):
- `PrelGHC.CReturnable aMl' arising from the result of the _ccall_ to f, at cc004.hs:18
+ `PrelGHC.CReturnable aSE' arising from the result of the _ccall_ to `f' at cc004.hs:18
cc004.hs:2:
Cannot generalise these overloadings (in a _ccall_):
- `PrelGHC.CReturnable aNp' arising from the result of the _ccall_ to f, at cc004.hs:11
+ `PrelGHC.CReturnable aTM' arising from the result of the _ccall_ to `f' at cc004.hs:11
Compilation had errors
1.1754944e-38
1.1754944e-38
-NaN
-NaN
+3.4028235e38
+3.4028235e38
2.2250738585072014e-308
2.2250738585072014e-308
1.7976931348623157e308
-Fail: dsrun005.hs:42: Non-exhaustive patterns in function `f'
+Fail: dsrun005.hs:42: Non-exhaustive patterns in function f
-
-NOTE: Simplifier still going after 4 iterations; bailing out.
drvfail004.hs:5:
- No instance for: `Eq (Foo a b)'
- arising from an instance declaration, at drvfail004.hs:5
- Available context: (Eq (Foo a b))
- From the superclasses of the instance declaration
+ Could not deduce `Eq (Foo a b)'
+ (arising from an instance declaration at drvfail004.hs:5)
+ from the context (Ord a, Ord b)
+ Probable cause: missing `Eq (Foo a b)' in instance declaration context
+ or missing instance declaration for `Eq (Foo a b)'
+ When checking the superclasses of an instance declaration
Compilation had errors
drvfail007.hs:2:
- No instance for: `Eq (Int -> Int)' When deriving classes for `Foo'
+ No instance for `Eq (Int -> Int)'
+ When deriving classes for `Foo'
Compilation had errors
--- /dev/null
+TOP = ..
+include $(TOP)/mk/boilerplate.mk
+
+SUBDIRS = should_run
+
+include $(TOP)/mk/target.mk
+
--- /dev/null
+TOP = ../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/should_run.mk
+
+HC_OPTS += -dcore-lint
+
+io002_RUNTEST_OPTS = -x 1
+
+include $(TOP)/mk/target.mk
#-----------------------------------------------------------------------------
-# $Id: Makefile,v 1.1 1998/01/07 18:13:11 simonm Exp $
+# $Id: Makefile,v 1.2 1998/04/17 15:59:29 simonm Exp $
TOP = ../..
include $(TOP)/mk/boilerplate.mk
HC_OPTS += -dcore-lint
+arith011_HC_OPTS = -fglasgow-exts
+arith012_HC_OPTS = -fglasgow-exts
+
include $(TOP)/mk/target.mk
==================== Typechecked ====================
Print001.BarNil{-r8-} =
- _/\_ a_tr51 -> Print001.BarNil{-r8-} {_@_ a_tr51}
+ _/\_ a_tr58 -> Print001.BarNil{-r8-} {_@_ a_tr58}
Print001.BarCon{-r7-} =
- _/\_ a_tr51 -> \ tpl_B1 tpl_B2 ->
- Print001.BarCon{-r7-} {_@_ a_tr51 tpl_B1 tpl_B2}
-Print001.MkFoo{-r57-} =
- _/\_ d_tr53 e_tr54 f_tr55 -> \ tpl_B1 tpl_B2 tpl_B3 ->
- Print001.MkFoo{-r57-} {_@_ d_tr53
- _@_ e_tr54
- _@_ f_tr55
- tpl_B1
- tpl_B2
- tpl_B3}
+ _/\_ a_tr58 -> \ x1_B1
+ x2_B2 ->
+ Print001.BarCon{-r7-} {_@_ a_tr58 x1_B1 x2_B2}
+Print001.MkFoo{-r50-} =
+ _/\_ d_tr5a
+ e_tr5b
+ f_tr5c -> \ x1_B1
+ x2_B2
+ x3_B3 ->
+ Print001.MkFoo{-r50-} {_@_ d_tr5a
+ _@_ e_tr5b
+ _@_ f_tr5c
+ x1_B1
+ x2_B2
+ x3_B3}
AbsBinds
-[a_ta12D, b_ta12F]
+[a_ta19e, b_ta19g]
[]
-[([a_ta12D, b_ta12F], Print001.g{-r4S-}, g_a13Q)]
- g_a13Q x_r4Z = lit_a13S
+[([a_ta19e, b_ta19g], Print001.g{-r4W-}, g_a1aD)]
+ g_a1aD x_r56 = lit_a1aF
AbsBinds
-[a_ta12R, b_ta12T, c_ta12V]
-[d.Eq_a130, d.Ord_a131, d.Ix_a132]
-[([a_ta12R, b_ta12T, c_ta12V], Print001.f2{-r4R-}, f2_a13Z)]
- f2_a13Z x_r4X = x_r4X
+[a_ta19y, b_ta19A, c_ta19C]
+[d.Eq_a19H, d.Ord_a19I, d.Ix_a19J]
+[([a_ta19y, b_ta19A, c_ta19C], Print001.f2{-r4X-}, f2_a1aM)]
+ f2_a1aM x_r54 = x_r54
AbsBinds
-[a_ta13b, b_ta13d, c_ta13f]
-[d.Eq_a13k]
-[([a_ta13b, b_ta13d, c_ta13f], Print001.f{-r4Q-}, f_a140)]
- f_a140 x_r4V = x_r4V
+[a_ta19Y, b_ta1a0, c_ta1a2]
+[d.Eq_a1a7]
+[([a_ta19Y, b_ta1a0, c_ta1a2], Print001.f{-r4Y-}, f_a1aN)]
+ f_a1aN x_r52 = x_r52
AbsBinds
-[a13o, a13q, a13s]
+[a1ab, a1ad, a1af]
[]
-[([a13o, a13q, a13s], Print001.mkFoo{-r4T-}, mkFoo_a141)]
- mkFoo_a141 = Print001.MkFoo{-r57-} [a13o, a13q, a13s]
+[([a1ab, a1ad, a1af], Print001.mkFoo{-r4Z-}, mkFoo_a1aO)]
+ mkFoo_a1aO = Print001.MkFoo{-r50-} [a1ab, a1ad, a1af]
AbsBinds
-[a_ta13M]
+[a_ta1az]
[]
-[([a_ta13M], Print001.$d1{-r13Y-}, d.Eval_a13A)]
- d.Eval_a13A = PrelBase.:Eval{-rR-} (Print001.Bar{-r56-} a_ta13M)
+[([a_ta1az], Print001.$dEvalBar0{-r1aL-}, d.Eval_a1an)]
+ d.Eval_a1an =
+ PrelErr.error{-87-}
+ {PrelBase.Eval{-24-} (Print001.Bar{-r5d-} a_ta1az)} "Compiler error: bad dictionary Eval"
AbsBinds
-[d_ta13N, e_ta13P, f_ta13O]
+[d_ta1aA, e_ta1aC, f_ta1aB]
[]
-[([d_ta13N, e_ta13P, f_ta13O], Print001.$d2{-r13X-}, d.Eval_a13I)]
- d.Eval_a13I =
- PrelBase.:Eval{-rR-} (Print001.Foo{-r58-} d_ta13N e_ta13P f_ta13O)
-lit_a13S = fromRational_a13R 2.0
-fromRational_a13R =
- PrelNum.fromRational{-8U-} PrelBase.Float{-3c-} d.Fractional_a13L
-d.Fractional_a13L = PrelNum.$d23{-rF0-}
+[([d_ta1aA, e_ta1aC, f_ta1aB],
+ Print001.$dEvalFoo0{-r1aK-},
+ d.Eval_a1av)]
+ d.Eval_a1av =
+ PrelErr.error{-87-}
+ {PrelBase.Eval{-24-} (Print001.Foo{-r5e-} d_ta1aA e_ta1aC f_ta1aB)} "Compiler error: bad dictionary Eval"
+lit_a1aF = fromRational_a1aE 2.0
+fromRational_a1aE =
+ PrelNum.fromRational{-8S-} PrelBase.Float{-3c-} d.Fractional_a1ay
+d.Fractional_a1ay = PrelNum.$dFractionalFloat0{-rGQ-}
ghc: module version changed to 1; reason: no old .hi file
-_interface_ Print001 1
+_interface_ Print001 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-Ix 1 :: $d3 1 $d4 1 $d5 1 $d6 1 $d7 1 $d8 1 $d9 1 Ix 1;
-PrelBase 1 :: $d1 1 $d10 1 $d11 1 $d12 1 $d13 1 $d15 1 $d2 1 $d20 1 $d21 1 $d24 1 $d25 1 $d26 1 $d27 1 $d28 1 $d29 1 $d3 1 $d30 1 $d31 1 $d32 1 $d33 1 $d34 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d40 1 $d41 1 $d42 1 $d43 1 $d5 1 $d6 1 $d7 1 $d8 1 $d9 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $menumFromThenTo 1 $menumFromTo 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 Enum 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
-PrelNum 1 :: $d1 1 $d10 1 $d14 1 $d15 1 $d16 1 $d17 1 $d18 1 $d19 1 $d2 1 $d23 1 $d24 1 $d25 1 $d26 1 $d27 1 $d28 1 $d29 1 $d30 1 $d31 1 $d32 1 $d33 1 $d34 1 $d35 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d5 1 $d6 1 $d7 1 $d8 1 $d9 1 $mdiv 1 $mdivMod 1 $mmod 1 $mquot 1 $mrecip 1 $mrem 1 Fractional 1 Integral 1 Ratio 1 Rational 1 Real 1;
-PrelTup 1 :: $d10 1 $d13 1 $d14 1 $d3 1 $d4 1 $d49 1 $d50 1 $d9 1;
+Ix 1 :: $dIx2 1 $dIx3 1 $dIx4 1 $dIxBool0 1 $dIxChar0 1 $dIxInt0 1 $dIxOrdering0 1 Ix 1;
+PrelBase 1 :: $dEnum0 1 $dEnumBool0 1 $dEnumChar0 1 $dEnumInt0 1 $dEnumOrdering0 1 $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalFloat0 1 $dEvalInt0 1 $dEvalInteger0 1 $dEvalOrdering0 1 $dNumInt0 1 $dOrd0 1 $dOrd1 1 $dOrdBool0 1 $dOrdChar0 1 $dOrdInt0 1 $dOrdOrdering0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $dShowOrdering0 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $menumFromThenTo 1 $menumFromTo 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 Enum 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
+PrelNum 1 :: $dEnumDouble0 1 $dEnumFloat0 1 $dEnumInteger0 1 $dEnumRatio0 1 $dEqDouble0 1 $dEqFloat0 1 $dEqInteger0 1 $dEqRatio0 1 $dEvalRatio0 1 $dFractionalDouble0 1 $dFractionalFloat0 1 $dFractionalRatio0 1 $dIntegralInt0 1 $dIntegralInteger0 1 $dIxInteger0 1 $dNumDouble0 1 $dNumFloat0 1 $dNumInteger0 1 $dNumRatio0 1 $dOrdDouble0 1 $dOrdFloat0 1 $dOrdInteger0 1 $dOrdRatio0 1 $dRealDouble0 1 $dRealFloat0 1 $dRealInt0 1 $dRealInteger0 1 $dRealRatio0 1 $dShowDouble0 1 $dShowFloat0 1 $dShowInteger0 1 $dShowRatio0 1 $mdiv 1 $mdivMod 1 $mmod 1 $mquot 1 $mrecip 1 $mrem 1 Fractional 1 Integral 1 Ratio 1 Rational 1 Real 1;
+PrelTup 1 :: $dEq0 1 $dEq1 1 $dEval0 1 $dEval1 1 $dOrd0 1 $dOrd1 1 $dShow2 1 $dShow3 1;
_exports_
Print001 f f2 g mkFoo Bar(BarNil BarCon) Foo(MkFoo);
_instances_
-instance _forall_ [a] => {PrelBase.Eval (Bar a)} = $d1;
-instance _forall_ [a b c] => {PrelBase.Eval (Foo a b c)} = $d2;
+instance _forall_ [a] => {PrelBase.Eval (Bar a)} = $dEvalBar0;
+instance _forall_ [a b c] => {PrelBase.Eval (Foo a b c)} = $dEvalFoo0;
_declarations_
-1 $d1 _:_ _forall_ [a] => {PrelBase.Eval (Bar a)} ;;
-1 $d2 _:_ _forall_ [a b c] => {PrelBase.Eval (Foo a b c)} ;;
+1 $dEvalBar0 _:_ _forall_ [a] => {PrelBase.Eval (Bar a)} ;;
+1 $dEvalFoo0 _:_ _forall_ [a b c] => {PrelBase.Eval (Foo a b c)} ;;
1 data Bar a = BarNil | BarCon (Foo a a a) (Bar a) ;
1 data Foo d e f = MkFoo [((d -> PrelBase.Int) -> d) -> e] (d -> e, e -> e) PrelBase.() ;
1 f _:_ _forall_ [a b c] {PrelBase.Eq a} => (a -> b -> c) -> a -> b -> c ;;
==================== Typechecked ====================
Print002.MkFoo1{-ro-} =
- _/\_ a_tr4E b_tr4F c_tr4G -> \ tpl_B1 tpl_B2 ->
- Print002.MkFoo1{-ro-} {_@_ a_tr4E
- _@_ b_tr4F
- _@_ c_tr4G
- tpl_B1
- tpl_B2}
+ _/\_ a_tr4H
+ b_tr4I
+ c_tr4J -> \ x1_B1
+ x2_B2 ->
+ Print002.MkFoo1{-ro-} {_@_ a_tr4H
+ _@_ b_tr4I
+ _@_ c_tr4J
+ x1_B1
+ x2_B2}
Print002.:##{-rn-} =
- _/\_ a_tr4E b_tr4F c_tr4G -> \ tpl_B1 tpl_B2 ->
- Print002.:##{-rn-} {_@_ a_tr4E _@_ b_tr4F _@_ c_tr4G tpl_B1 tpl_B2}
+ _/\_ a_tr4H
+ b_tr4I
+ c_tr4J -> \ x1_B1
+ x2_B2 ->
+ Print002.:##{-rn-} {_@_ a_tr4H _@_ b_tr4I _@_ c_tr4J x1_B1 x2_B2}
Print002.MkFoo3{-rq-} =
- _/\_ a_tr4E b_tr4F c_tr4G -> \ tpl_B1 tpl_B2 ->
- Print002.MkFoo3{-rq-} {_@_ a_tr4E
- _@_ b_tr4F
- _@_ c_tr4G
- tpl_B1
- tpl_B2}
+ _/\_ a_tr4H
+ b_tr4I
+ c_tr4J -> \ x1_B1
+ x2_B2 ->
+ Print002.MkFoo3{-rq-} {_@_ a_tr4H
+ _@_ b_tr4I
+ _@_ c_tr4J
+ x1_B1
+ x2_B2}
Print002.:***{-rs-} =
- _/\_ a_tr4E b_tr4F c_tr4G -> \ tpl_B1 tpl_B2 ->
- Print002.:***{-rs-} {_@_ a_tr4E
- _@_ b_tr4F
- _@_ c_tr4G
- tpl_B1
- tpl_B2}
-AbsBinds [aK9] [d.Bar_aKd] [([aK9], Print002.f3d{-r4I-}, f3d_aWS)]
- /////_aWT = Print002./////{-r4X-} aK9 d.Bar_aKd
- f3d_aWS x_r4s y_r4t = x_r4s /////_aWT y_r4t
-AbsBinds [aKu] [d.Bar_aKy] [([aKu], Print002.f3c{-r4J-}, f3c_aWY)]
- /////_aWZ = Print002./////{-r4X-} aKu d.Bar_aKy
- f3c_aWY x_r4p y_r4q = /////_aWZ x_r4p y_r4q
-AbsBinds [aKP] [d.Bar_aKT] [([aKP], Print002.f3b{-r4K-}, f3b_aX0)]
- meth1_aX1 = Print002.meth1{-r4Y-} aKP d.Bar_aKT
- f3b_aX0 x_r4m y_r4n = x_r4m meth1_aX1 y_r4n
-AbsBinds [aLa] [d.Bar_aLe] [([aLa], Print002.f3a{-r4L-}, f3a_aX2)]
- meth1_aX3 = Print002.meth1{-r4Y-} aLa d.Bar_aLe
- f3a_aX2 x_r4j y_r4k = meth1_aX3 x_r4j y_r4k
+ _/\_ a_tr4H
+ b_tr4I
+ c_tr4J -> \ x1_B1
+ x2_B2 ->
+ Print002.:***{-rs-} {_@_ a_tr4H _@_ b_tr4I _@_ c_tr4J x1_B1 x2_B2}
+AbsBinds [aQk] [d.Bar_aQo] [([aQk], Print002.f3d{-r4L-}, f3d_a131)]
+ /////_a132 = Print002./////{-r4t-} aQk d.Bar_aQo
+ f3d_a131 x_r4v y_r4w = x_r4v /////_a132 y_r4w
+AbsBinds [aQF] [d.Bar_aQJ] [([aQF], Print002.f3c{-r4M-}, f3c_a137)]
+ /////_a138 = Print002./////{-r4t-} aQF d.Bar_aQJ
+ f3c_a137 x_r4r y_r4s = /////_a138 x_r4r y_r4s
+AbsBinds [aR0] [d.Bar_aR4] [([aR0], Print002.f3b{-r4N-}, f3b_a139)]
+ meth1_a13a = Print002.meth1{-r4m-} aR0 d.Bar_aR4
+ f3b_a139 x_r4o y_r4p = x_r4o meth1_a13a y_r4p
+AbsBinds [aRl] [d.Bar_aRp] [([aRl], Print002.f3a{-r4O-}, f3a_a13b)]
+ meth1_a13c = Print002.meth1{-r4m-} aRl d.Bar_aRp
+ f3a_a13b x_r4k y_r4l = meth1_a13c x_r4k y_r4l
AbsBinds
-[aLF, aLH, aLJ]
+[aRQ, aRS, aRU]
[]
-[([aLF, aLH, aLJ], Print002.<<<<{-r4M-}, <<<<_aX4)]
- <<<<_aX4 x_r4d y_r4e
- = Print002.:***{-rs-} [aLF, aLH, aLJ] x_r4d y_r4e
- <<<<_aX4 x_r4g y_r4h
- = Print002.:***{-rs-} [aLF, aLH, aLJ] x_r4g y_r4h
+[([aRQ, aRS, aRU], Print002.<<<<{-r4P-}, <<<<_a13d)]
+ <<<<_a13d x_r4e y_r4f
+ = Print002.:***{-rs-} [aRQ, aRS, aRU] x_r4e y_r4f
+ <<<<_a13d x_r4h y_r4i
+ = Print002.:***{-rs-} [aRQ, aRS, aRU] x_r4h y_r4i
AbsBinds
-[aM0, aM2, aM4]
+[aSb, aSd, aSf]
[]
-[([aM0, aM2, aM4], Print002......{-r4N-}, ....._aX5)]
- ....._aX5 x_r4a y_r4b
- = Print002.MkFoo3{-rq-} [aM0, aM2, aM4] x_r4a y_r4b
+[([aSb, aSd, aSf], Print002......{-r4Q-}, ....._a13e)]
+ ....._a13e x_r4b y_r4c
+ = Print002.MkFoo3{-rq-} [aSb, aSd, aSf] x_r4b y_r4c
AbsBinds
-[aMl, aMn, aMp]
+[aSw, aSy, aSA]
[]
-[([aMl, aMn, aMp], Print002.....{-r4O-}, ...._aX6)]
- ...._aX6 x_r47 y_r48
- = Print002.MkFoo3{-rq-} [aMl, aMn, aMp] x_r47 y_r48
+[([aSw, aSy, aSA], Print002.....{-r4R-}, ...._a13f)]
+ ...._a13f x_r48 y_r49
+ = Print002.MkFoo3{-rq-} [aSw, aSy, aSA] x_r48 y_r49
AbsBinds
-[aMG, aMI, aMK]
+[aSR, aST, aSV]
[]
-[([aMG, aMI, aMK], Print002.f2a{-r4P-}, f2a_aX7)]
- f2a_aX7 x_r44 y_r45
- = Print002.:##{-rn-} [aMG, aMI, aMK] x_r44 y_r45
+[([aSR, aST, aSV], Print002.f2a{-r4S-}, f2a_a13g)]
+ f2a_a13g x_r45 y_r46
+ = Print002.:##{-rn-} [aSR, aST, aSV] x_r45 y_r46
AbsBinds
-[aN1, aN3, aN5]
+[aTc, aTe, aTg]
[]
-[([aN1, aN3, aN5], Print002.f2{-r4Q-}, f2_aX8)]
- f2_aX8 x_r41 y_r42 = Print002.:##{-rn-} [aN1, aN3, aN5] x_r41 y_r42
+[([aTc, aTe, aTg], Print002.f2{-r4T-}, f2_a13h)]
+ f2_a13h x_r42 y_r43
+ = Print002.:##{-rn-} [aTc, aTe, aTg] x_r42 y_r43
AbsBinds
-[aNm, aNo, aNq]
+[aTx, aTz, aTB]
[]
-[([aNm, aNo, aNq], Print002.f1a{-r4R-}, f1a_aX9)]
- f1a_aX9 x_r3Y y_r3Z
- = Print002.MkFoo1{-ro-} [aNm, aNo, aNq] x_r3Y y_r3Z
+[([aTx, aTz, aTB], Print002.f1a{-r4U-}, f1a_a13i)]
+ f1a_a13i x_r3Z y_r40
+ = Print002.MkFoo1{-ro-} [aTx, aTz, aTB] x_r3Z y_r40
AbsBinds
-[aNH, aNJ, aNL]
+[aTS, aTU, aTW]
[]
-[([aNH, aNJ, aNL], Print002.f1{-r4S-}, f1_aXa)]
- f1_aXa x_r3V y_r3W
- = Print002.MkFoo1{-ro-} [aNH, aNJ, aNL] x_r3V y_r3W
+[([aTS, aTU, aTW], Print002.f1{-r4V-}, f1_a13j)]
+ f1_a13j x_r3W y_r3X
+ = Print002.MkFoo1{-ro-} [aTS, aTU, aTW] x_r3W y_r3X
AbsBinds
-[aOs, aOv, aOw]
+[aUD, aUG, aUH]
[]
-[([aOs, aOv, aOw], con2tag_Foo#_rHm, con2tag_Foo#_aXb)]
- con2tag_Foo#_aXb (Print002.MkFoo1{-ro-} _ _) = 0#
- con2tag_Foo#_aXb (Print002.:##{-rn-} _ _) = 1#
- con2tag_Foo#_aXb (Print002.MkFoo3{-rq-} _ _) = 2#
- con2tag_Foo#_aXb (Print002.:***{-rs-} _ _) = 3#
+[([aUD, aUG, aUH], con2tag_Foo#_rNP, con2tag_Foo#_a13k)]
+ con2tag_Foo#_a13k (Print002.MkFoo1{-ro-} _ _) = 0#
+ con2tag_Foo#_a13k (Print002.:##{-rn-} _ _) = 1#
+ con2tag_Foo#_a13k (Print002.MkFoo3{-rq-} _ _) = 2#
+ con2tag_Foo#_a13k (Print002.:***{-rs-} _ _) = 3#
AbsBinds
-[a_taOO, b_taOR, c_taOU]
-[d.Eq_aQV, d.Eq_aQW, d.Eq_aQX]
-[([a_taOO, b_taOR, c_taOU], Print002.$d1{-rWX-}, d.Eq_aOE)]
- ==_aWw = ==_aWx
- ==_aWu = PrelBase.=={-8Z-} c_taOU d.Eq_aR3
- ==_aWv = ==_aWu
- ==_aWt = ==_aWu
- ==_aWr = PrelBase.=={-8Z-} b_taOR d.Eq_aR5
- ==_aWs = ==_aWr
- ==_aWq = ==_aWr
- ==_aWp = PrelBase.=={-8Z-} a_taOO d.Eq_aR7
- ==_aWo = ==_aWp
- d.Eq_aR3 = d.Eq_aQX
- d.Eq_aR5 = d.Eq_aQW
- d.Eq_aR7 = d.Eq_aQV
- AbsBinds [] [] [([], ==_aWx, ==_aXd)]
- ==_aXd (Print002.MkFoo1{-ro-} a1_rHv a2_rHw)
- (Print002.MkFoo1{-ro-} b1_rHx b2_rHy)
- = (a1_rHv ==_aWp b1_rHx) PrelBase.&&{-rfL-} (a2_rHw ==_aWo b2_rHy)
- ==_aXd (Print002.:##{-rn-} a1_rHA a2_rHB)
- (Print002.:##{-rn-} b1_rHC b2_rHD)
- = (a1_rHA ==_aWq b1_rHC) PrelBase.&&{-rfL-} (a2_rHB ==_aWt b2_rHD)
- ==_aXd (Print002.MkFoo3{-rq-} a1_rHF a2_rHG)
- (Print002.MkFoo3{-rq-} b1_rHH b2_rHI)
- = (a1_rHF ==_aWr b1_rHH) PrelBase.&&{-rfL-} (a2_rHG ==_aWs b2_rHI)
- ==_aXd (Print002.:***{-rs-} a1_rHK a2_rHL)
- (Print002.:***{-rs-} b1_rHM b2_rHN)
- = (a1_rHK ==_aWu b1_rHM) PrelBase.&&{-rfL-} (a2_rHL ==_aWv b2_rHN)
- ==_aXd a_rHP b_rHQ = PrelBase.False{-58-}
- AbsBinds [] [] [([], /=_aXc, /=_aXe)]
- /=_aXe a_rHU b_rHV = PrelBase.not{-rgT-} ==_aWw a_rHU b_rHV
- d.Eq_aOE =
- PrelBase.:Eq{-r16-}
- (Print002.Foo{-r51-} a_taOO b_taOR c_taOU) ==_aWx /=_aXc
+[a_taUS, b_taUT, c_taUU]
+[d.Eq_aX1, d.Eq_aX2, d.Eq_aX3]
+[([a_taUS, b_taUT, c_taUU], Print002.$dEqFoo0{-r136-}, d.Eq_aUP)]
+ ==_a12H = ==_aV7
+ ==_a12F = PrelBase.=={-8X-} c_taUU d.Eq_aXe
+ ==_a12G = ==_a12F
+ ==_a12E = ==_a12F
+ ==_a12C = PrelBase.=={-8X-} b_taUT d.Eq_aXg
+ ==_a12D = ==_a12C
+ ==_a12B = ==_a12C
+ ==_a12A = PrelBase.=={-8X-} a_taUS d.Eq_aXi
+ ==_a12z = ==_a12A
+ d.Eq_aXe = d.Eq_aX3
+ d.Eq_aXg = d.Eq_aX2
+ d.Eq_aXi = d.Eq_aX1
+ AbsBinds [] [] [([], /=_aUR, /=_a13l)]
+ /=_a13l a_rOj b_rOk = PrelBase.not{-rhG-} ==_a12H a_rOj b_rOk
+ AbsBinds [] [] [([], ==_aV7, ==_a13m)]
+ ==_a13m (Print002.MkFoo1{-ro-} a1_rNW a2_rNX)
+ (Print002.MkFoo1{-ro-} b1_rNY b2_rNZ)
+ = (a1_rNW ==_a12A b1_rNY)
+ PrelBase.&&{-rgy-} (a2_rNX ==_a12z b2_rNZ)
+ ==_a13m (Print002.:##{-rn-} a1_rO1 a2_rO2)
+ (Print002.:##{-rn-} b1_rO3 b2_rO4)
+ = (a1_rO1 ==_a12B b1_rO3)
+ PrelBase.&&{-rgy-} (a2_rO2 ==_a12E b2_rO4)
+ ==_a13m (Print002.MkFoo3{-rq-} a1_rO6 a2_rO7)
+ (Print002.MkFoo3{-rq-} b1_rO8 b2_rO9)
+ = (a1_rO6 ==_a12C b1_rO8)
+ PrelBase.&&{-rgy-} (a2_rO7 ==_a12D b2_rO9)
+ ==_a13m (Print002.:***{-rs-} a1_rOb a2_rOc)
+ (Print002.:***{-rs-} b1_rOd b2_rOe)
+ = (a1_rOb ==_a12F b1_rOd)
+ PrelBase.&&{-rgy-} (a2_rOc ==_a12G b2_rOe)
+ ==_a13m a_rOg b_rOh = PrelBase.False{-58-}
+ d.Eq_aUP =
+ PrelBase.:Eq{-r17-}
+ (Print002.Foo{-r52-} a_taUS b_taUT c_taUU) /=_aUR ==_aV7
AbsBinds
-[a_taWy, b_taWA, c_taWz]
+[a_ta12I, b_ta12K, c_ta12J]
[]
-[([a_taWy, b_taWA, c_taWz], Print002.$d2{-rWW-}, d.Eval_aRi)]
- d.Eval_aRi =
- PrelBase.:Eval{-r19-} (Print002.Foo{-r51-} a_taWy b_taWA c_taWz)
+[([a_ta12I, b_ta12K, c_ta12J],
+ Print002.$dEvalFoo0{-r135-},
+ d.Eval_aXt)]
+ d.Eval_aXt =
+ PrelErr.error{-87-}
+ {PrelBase.Eval{-24-} (Print002.Foo{-r52-} a_ta12I b_ta12K c_ta12J)} "Compiler error: bad dictionary Eval"
AbsBinds
-[a_taRr, b_taRs, c_taRt]
-[d.Ord_aVR, d.Ord_aVT, d.Ord_aVU, d.Eq_aVV]
-[([a_taRr, b_taRs, c_taRt], Print002.$d3{-rWV-}, d.Ord_aRq)]
- compare_aWH = compare_aWC
- compare_aWG = compare_aWC
- compare_aWF = compare_aWC
- compare_aWE = compare_aWC
- compare_aWD = compare_aWC
- compare_aWB = compare_aWC
- d.Ord_aUw = d.Ord_aVU
- d.Ord_aUv = d.Ord_aVT
- d.Ord_aUx = d.Ord_aVR
- d.Eq_aVS = d.Eq_aVV
- AbsBinds [] [] [([], compare_aWC, compare_aXl)]
- compare_aXl a_rIN b_rIO
- = case con2tag_Foo#_rHm [c_taRt, a_taRr, b_taRs] a_rIN of
- a#_rJB
- -> case con2tag_Foo#_rHm [c_taRt, a_taRr, b_taRs] b_rIO of
- b#_rJD
- -> if a#_rJB PrelGHC.==#{-79-} b#_rJD then
- case cmp_eq_aXm a_rIN b_rIO of
- PrelBase.LT{-raU-} -> PrelBase.LT{-raU-}
- PrelBase.EQ{-r4H-} -> PrelBase.EQ{-r4H-}
- PrelBase.GT{-raV-} -> PrelBase.GT{-raV-}
- else
- if a#_rJB PrelGHC.<#{-7b-} b#_rJD then
- PrelBase.LT{-raU-}
- else
- PrelBase.GT{-raV-}
- where
- {- rec -}
- AbsBinds
- [aTz, aTA, aTH]
- [d.Ord_aTY, d.Ord_aTV, d.Ord_aTS]
- [([aTz, aTA, aTH], cmp_eq_rIQ, cmp_eq_aXn)]
- compare_aWO = PrelBase.compare{-rgg-} aTH d.Ord_aTV
- compare_aWP = compare_aWO
- compare_aWN = compare_aWO
- compare_aWL = PrelBase.compare{-rgg-} aTA d.Ord_aTY
- compare_aWM = compare_aWL
- compare_aWK = compare_aWL
- compare_aWJ = PrelBase.compare{-rgg-} aTz d.Ord_aTS
- compare_aWI = compare_aWJ
- cmp_eq_aXn (Print002.MkFoo1{-ro-} a1_rIS a2_rIT)
- (Print002.MkFoo1{-ro-} b1_rIU b2_rIV)
- = case compare_aWI a1_rIS b1_rIU of
- PrelBase.LT{-raU-} -> PrelBase.LT{-raU-}
- PrelBase.EQ{-r4H-}
- -> case compare_aWJ a2_rIT b2_rIV of
- PrelBase.LT{-raU-} -> PrelBase.LT{-raU-}
- PrelBase.EQ{-r4H-} -> PrelBase.EQ{-r4H-}
- PrelBase.GT{-raV-} -> PrelBase.GT{-raV-}
- PrelBase.GT{-raV-} -> PrelBase.GT{-raV-}
- cmp_eq_aXn (Print002.:##{-rn-} a1_rJ3 a2_rJ4)
- (Print002.:##{-rn-} b1_rJ5 b2_rJ6)
- = case compare_aWL a1_rJ3 b1_rJ5 of
- PrelBase.LT{-raU-} -> PrelBase.LT{-raU-}
- PrelBase.EQ{-r4H-}
- -> case compare_aWO a2_rJ4 b2_rJ6 of
- PrelBase.LT{-raU-} -> PrelBase.LT{-raU-}
- PrelBase.EQ{-r4H-} -> PrelBase.EQ{-r4H-}
- PrelBase.GT{-raV-} -> PrelBase.GT{-raV-}
- PrelBase.GT{-raV-} -> PrelBase.GT{-raV-}
- cmp_eq_aXn (Print002.MkFoo3{-rq-} a1_rJe a2_rJf)
- (Print002.MkFoo3{-rq-} b1_rJg b2_rJh)
- = case compare_aWK a1_rJe b1_rJg of
- PrelBase.LT{-raU-} -> PrelBase.LT{-raU-}
- PrelBase.EQ{-r4H-}
- -> case compare_aWM a2_rJf b2_rJh of
- PrelBase.LT{-raU-} -> PrelBase.LT{-raU-}
- PrelBase.EQ{-r4H-} -> PrelBase.EQ{-r4H-}
- PrelBase.GT{-raV-} -> PrelBase.GT{-raV-}
- PrelBase.GT{-raV-} -> PrelBase.GT{-raV-}
- cmp_eq_aXn (Print002.:***{-rs-} a1_rJp a2_rJq)
- (Print002.:***{-rs-} b1_rJr b2_rJs)
- = case compare_aWN a1_rJp b1_rJr of
- PrelBase.LT{-raU-} -> PrelBase.LT{-raU-}
- PrelBase.EQ{-r4H-}
- -> case compare_aWP a2_rJq b2_rJs of
- PrelBase.LT{-raU-} -> PrelBase.LT{-raU-}
- PrelBase.EQ{-r4H-} -> PrelBase.EQ{-r4H-}
- PrelBase.GT{-raV-} -> PrelBase.GT{-raV-}
- PrelBase.GT{-raV-} -> PrelBase.GT{-raV-}
- cmp_eq_aXn _ _
- = PrelErr.error{-87-}
- PrelBase.Ordering{-3n-} "Urk! in TcGenDeriv"
- cmp_eq_aXm =
- cmp_eq_rIQ [a_taRr, b_taRs, c_taRt]
- [d.Ord_aUv, d.Ord_aUw, d.Ord_aUx]
- AbsBinds [] [] [([], <_aXk, <_aXo)]
- <_aXo a_rI1 b_rI2
- = case compare_aWH a_rI1 b_rI2 of
- PrelBase.LT{-raU-} -> PrelBase.True{-5E-}
- PrelBase.EQ{-r4H-} -> PrelBase.False{-58-}
- PrelBase.GT{-raV-} -> PrelBase.False{-58-}
- AbsBinds [] [] [([], <=_aXj, <=_aXp)]
- <=_aXp a_rI9 b_rIa
- = case compare_aWG a_rI9 b_rIa of
- PrelBase.LT{-raU-} -> PrelBase.True{-5E-}
- PrelBase.EQ{-r4H-} -> PrelBase.True{-5E-}
- PrelBase.GT{-raV-} -> PrelBase.False{-58-}
- AbsBinds [] [] [([], >=_aXi, >=_aXq)]
- >=_aXq a_rIh b_rIi
- = case compare_aWF a_rIh b_rIi of
- PrelBase.LT{-raU-} -> PrelBase.False{-58-}
- PrelBase.EQ{-r4H-} -> PrelBase.True{-5E-}
- PrelBase.GT{-raV-} -> PrelBase.True{-5E-}
- AbsBinds [] [] [([], >_aXh, >_aXr)]
- >_aXr a_rIp b_rIq
- = case compare_aWE a_rIp b_rIq of
- PrelBase.LT{-raU-} -> PrelBase.False{-58-}
- PrelBase.EQ{-r4H-} -> PrelBase.False{-58-}
- PrelBase.GT{-raV-} -> PrelBase.True{-5E-}
- AbsBinds [] [] [([], max_aXg, max_aXs)]
- max_aXs a_rIx b_rIy
- = case compare_aWD a_rIx b_rIy of
- PrelBase.LT{-raU-} -> b_rIy
- PrelBase.EQ{-r4H-} -> a_rIx
- PrelBase.GT{-raV-} -> a_rIx
- AbsBinds [] [] [([], min_aXf, min_aXt)]
- min_aXt a_rIF b_rIG
- = case compare_aWB a_rIF b_rIG of
- PrelBase.LT{-raU-} -> a_rIF
- PrelBase.EQ{-r4H-} -> b_rIG
- PrelBase.GT{-raV-} -> b_rIG
- d.Ord_aRq =
- PrelBase.:Ord{-r1n-}
- (Print002.Foo{-r51-} a_taRr b_taRs c_taRt) d.Eq_aVS
- compare_aWC
- <_aXk
- <=_aXj
- >=_aXi
- >_aXh
- max_aXg
- min_aXf
-Print002.scsel_Bar2Print002Bar{-aWU-} =
- _/\_ a_tr4v -> \ tpl_B1 ->
- _coerce_out_ Print002.:Bar2{-r4U-}
- {Print002.Bar{-r4w-} a_tr4v}
- tpl_B1
-AbsBinds [a_taWQ] [d.Bar2_aWj] []
-Print002.meth1{-r4Y-} =
- _/\_ a_tr4y -> \ tpl_B1 ->
- case tpl_B1 of { Print002.:Bar{-r50-} tpl_B2 tpl_B3 tpl_B4 ->
- tpl_B2;}
-Print002./////{-r4X-} =
- _/\_ a_tr4y -> \ tpl_B1 ->
- case tpl_B1 of { Print002.:Bar{-r50-} tpl_B2 tpl_B3 tpl_B4 ->
- tpl_B3;}
-Print002.meth2{-r4W-} =
- _/\_ a_tr4y -> \ tpl_B1 ->
- case tpl_B1 of { Print002.:Bar{-r50-} tpl_B2 tpl_B3 tpl_B4 ->
- tpl_B4;}
-AbsBinds [a_taWR] [d.Bar_aWn] []
+[a_taXE, b_taXF, c_taXG]
+[d.Ord_a125, d.Ord_a127, d.Ord_a128, d.Eq_a129]
+[([a_taXE, b_taXF, c_taXG], Print002.$dOrdFoo0{-r134-}, d.Ord_aXB)]
+ compare_a12Q = compare_aZ2
+ compare_a12P = compare_aZ2
+ compare_a12O = compare_aZ2
+ compare_a12N = compare_aZ2
+ compare_a12M = compare_aZ2
+ compare_a12L = compare_aZ2
+ d.Ord_a123 = d.Ord_a128
+ d.Ord_a122 = d.Ord_a127
+ d.Ord_a124 = d.Ord_a125
+ d.Eq_a126 = d.Eq_a129
+ AbsBinds [] [] [([], min_aXD, min_a13n)]
+ min_a13n a_rOS b_rOT
+ = case compare_a12Q a_rOS b_rOT of
+ PrelBase.LT{-rbj-} -> a_rOS
+ PrelBase.EQ{-r4K-} -> b_rOT
+ PrelBase.GT{-rbk-} -> b_rOT
+ AbsBinds [] [] [([], max_aXU, max_a13o)]
+ max_a13o a_rOM b_rON
+ = case compare_a12P a_rOM b_rON of
+ PrelBase.LT{-rbj-} -> b_rON
+ PrelBase.EQ{-r4K-} -> a_rOM
+ PrelBase.GT{-rbk-} -> a_rOM
+ AbsBinds [] [] [([], >_aY8, >_a13p)]
+ >_a13p a_rOG b_rOH
+ = case compare_a12O a_rOG b_rOH of
+ PrelBase.LT{-rbj-} -> PrelBase.False{-58-}
+ PrelBase.EQ{-r4K-} -> PrelBase.False{-58-}
+ PrelBase.GT{-rbk-} -> PrelBase.True{-5E-}
+ AbsBinds [] [] [([], >=_aYm, >=_a13q)]
+ >=_a13q a_rOA b_rOB
+ = case compare_a12N a_rOA b_rOB of
+ PrelBase.LT{-rbj-} -> PrelBase.False{-58-}
+ PrelBase.EQ{-r4K-} -> PrelBase.True{-5E-}
+ PrelBase.GT{-rbk-} -> PrelBase.True{-5E-}
+ AbsBinds [] [] [([], <=_aYA, <=_a13r)]
+ <=_a13r a_rOu b_rOv
+ = case compare_a12M a_rOu b_rOv of
+ PrelBase.LT{-rbj-} -> PrelBase.True{-5E-}
+ PrelBase.EQ{-r4K-} -> PrelBase.True{-5E-}
+ PrelBase.GT{-rbk-} -> PrelBase.False{-58-}
+ AbsBinds [] [] [([], <_aYO, <_a13s)]
+ <_a13s a_rOo b_rOp
+ = case compare_a12L a_rOo b_rOp of
+ PrelBase.LT{-rbj-} -> PrelBase.True{-5E-}
+ PrelBase.EQ{-r4K-} -> PrelBase.False{-58-}
+ PrelBase.GT{-rbk-} -> PrelBase.False{-58-}
+ AbsBinds [] [] [([], compare_aZ2, compare_a13t)]
+ compare_a13t a_rOY b_rOZ
+ = case con2tag_Foo#_rNP [c_taXG, a_taXE, b_taXF] a_rOY of
+ a#_rPM
+ -> case con2tag_Foo#_rNP [c_taXG, a_taXE, b_taXF] b_rOZ of
+ b#_rPO
+ -> if a#_rPM PrelGHC.==#{-79-} b#_rPO then
+ case cmp_eq_a13u a_rOY b_rOZ of
+ PrelBase.LT{-rbj-} -> PrelBase.LT{-rbj-}
+ PrelBase.EQ{-r4K-} -> PrelBase.EQ{-r4K-}
+ PrelBase.GT{-rbk-} -> PrelBase.GT{-rbk-}
+ else
+ if a#_rPM PrelGHC.<#{-7b-} b#_rPO then
+ PrelBase.LT{-rbj-}
+ else
+ PrelBase.GT{-rbk-}
+ where
+ {- rec -}
+ AbsBinds
+ [a113, a116, a117]
+ [d.Ord_a11v, d.Ord_a11s, d.Ord_a11p]
+ [([a113, a116, a117], cmp_eq_rP1, cmp_eq_a13v)]
+ compare_a12X = PrelBase.compare{-rh8-} a117 d.Ord_a11v
+ compare_a12Y = compare_a12X
+ compare_a12W = compare_a12X
+ compare_a12V = PrelBase.compare{-rh8-} a116 d.Ord_a11p
+ compare_a12U = compare_a12V
+ compare_a12S = PrelBase.compare{-rh8-} a113 d.Ord_a11s
+ compare_a12T = compare_a12S
+ compare_a12R = compare_a12S
+ cmp_eq_a13v (Print002.MkFoo1{-ro-} a1_rP3 a2_rP4)
+ (Print002.MkFoo1{-ro-} b1_rP5 b2_rP6)
+ = case compare_a12U a1_rP3 b1_rP5 of
+ PrelBase.LT{-rbj-} -> PrelBase.LT{-rbj-}
+ PrelBase.EQ{-r4K-}
+ -> case compare_a12V a2_rP4 b2_rP6 of
+ PrelBase.LT{-rbj-} -> PrelBase.LT{-rbj-}
+ PrelBase.EQ{-r4K-} -> PrelBase.EQ{-r4K-}
+ PrelBase.GT{-rbk-} -> PrelBase.GT{-rbk-}
+ PrelBase.GT{-rbk-} -> PrelBase.GT{-rbk-}
+ cmp_eq_a13v (Print002.:##{-rn-} a1_rPe a2_rPf)
+ (Print002.:##{-rn-} b1_rPg b2_rPh)
+ = case compare_a12X a1_rPe b1_rPg of
+ PrelBase.LT{-rbj-} -> PrelBase.LT{-rbj-}
+ PrelBase.EQ{-r4K-}
+ -> case compare_a12S a2_rPf b2_rPh of
+ PrelBase.LT{-rbj-} -> PrelBase.LT{-rbj-}
+ PrelBase.EQ{-r4K-} -> PrelBase.EQ{-r4K-}
+ PrelBase.GT{-rbk-} -> PrelBase.GT{-rbk-}
+ PrelBase.GT{-rbk-} -> PrelBase.GT{-rbk-}
+ cmp_eq_a13v (Print002.MkFoo3{-rq-} a1_rPp a2_rPq)
+ (Print002.MkFoo3{-rq-} b1_rPr b2_rPs)
+ = case compare_a12W a1_rPp b1_rPr of
+ PrelBase.LT{-rbj-} -> PrelBase.LT{-rbj-}
+ PrelBase.EQ{-r4K-}
+ -> case compare_a12Y a2_rPq b2_rPs of
+ PrelBase.LT{-rbj-} -> PrelBase.LT{-rbj-}
+ PrelBase.EQ{-r4K-} -> PrelBase.EQ{-r4K-}
+ PrelBase.GT{-rbk-} -> PrelBase.GT{-rbk-}
+ PrelBase.GT{-rbk-} -> PrelBase.GT{-rbk-}
+ cmp_eq_a13v (Print002.:***{-rs-} a1_rPA a2_rPB)
+ (Print002.:***{-rs-} b1_rPC b2_rPD)
+ = case compare_a12R a1_rPA b1_rPC of
+ PrelBase.LT{-rbj-} -> PrelBase.LT{-rbj-}
+ PrelBase.EQ{-r4K-}
+ -> case compare_a12T a2_rPB b2_rPD of
+ PrelBase.LT{-rbj-} -> PrelBase.LT{-rbj-}
+ PrelBase.EQ{-r4K-} -> PrelBase.EQ{-r4K-}
+ PrelBase.GT{-rbk-} -> PrelBase.GT{-rbk-}
+ PrelBase.GT{-rbk-} -> PrelBase.GT{-rbk-}
+ cmp_eq_a13v _ _
+ = PrelErr.error{-87-}
+ PrelBase.Ordering{-3n-} "Urk! in TcGenDeriv"
+ cmp_eq_a13u =
+ cmp_eq_rP1 [c_taXG, a_taXE, b_taXF]
+ [d.Ord_a122, d.Ord_a123, d.Ord_a124]
+ d.Ord_aXB =
+ PrelBase.:Ord{-r1o-}
+ (Print002.Foo{-r52-} a_taXE b_taXF c_taXG) d.Eq_a126
+ min_aXD
+ max_aXU
+ >_aY8
+ >=_aYm
+ <=_aYA
+ <_aYO
+ compare_aZ2
+Print002.Bar2_sc1{-a133-} =
+ _/\_ a_tr4y -> \ x1_B1 ->
+ _coerce_ {Print002.Bar{-r4z-} a_tr4y} x1_B1
+AbsBinds [a_ta12Z] [d.Bar2_a12u] []
+Print002.meth2{-r4Z-} =
+ _/\_ a_tr4B -> \ x1_B1 ->
+ case x1_B1 of { Print002.:Bar{-r51-} x2_B2 x3_B3 x4_B4 -> x2_B2;}
+Print002./////{-r4t-} =
+ _/\_ a_tr4B -> \ x1_B1 ->
+ case x1_B1 of { Print002.:Bar{-r51-} x2_B2 x3_B3 x4_B4 -> x3_B3;}
+Print002.meth1{-r4m-} =
+ _/\_ a_tr4B -> \ x1_B1 ->
+ case x1_B1 of { Print002.:Bar{-r51-} x2_B2 x3_B3 x4_B4 -> x4_B4;}
+AbsBinds [a_ta130] [d.Bar_a12y] []
Print002.hs:34:
x y = ...
ghc: module version changed to 1; reason: no old .hi file
-_interface_ Print002 1
+_interface_ Print002 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d12 1 $d13 1 $d2 1 $d26 1 $d28 1 $d29 1 $d31 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d6 1 $d7 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mmax 1 $mmin 1 && 1 . 1 not 1 Eq 1 Eval 1 Ord 1 Ordering 1;
-PrelNum 1 :: $d17 1 $d18 1;
+PrelBase 1 :: $dEq0 1 $dEqBool0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalOrdering0 1 $dOrd0 1 $dOrdBool0 1 $dOrdInt0 1 $dOrdOrdering0 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mmax 1 $mmin 1 && 1 . 1 not 1 Eq 1 Eval 1 Ord 1 Ordering 1;
+PrelNum 1 :: $dEqDouble0 1 $dOrdDouble0 1;
_exports_
-Print002 .... ..... <<<< f1 f1a f2 f2a f3a f3b f3c f3d Bar(:Bar :Bar meth1 ///// meth2) Bar2(:Bar2 :Bar2) Foo(MkFoo1 :## MkFoo3 :***);
+Print002 .... ..... <<<< f1 f1a f2 f2a f3a f3b f3c f3d Bar(:Bar :Bar meth2 ///// meth1) Bar2(:Bar2 :Bar2) Foo(MkFoo1 :## MkFoo3 :***);
_instances_
-instance _forall_ [a b c] {PrelBase.Eq a, PrelBase.Eq b, PrelBase.Eq c} => {PrelBase.Eq (Foo a b c)} = $d1;
-instance _forall_ [a b c] => {PrelBase.Eval (Foo a b c)} = $d2;
-instance _forall_ [a b c] {PrelBase.Ord a, PrelBase.Ord b, PrelBase.Ord c} => {PrelBase.Ord (Foo a b c)} = $d3;
+instance _forall_ [a b c] {PrelBase.Eq a, PrelBase.Eq b, PrelBase.Eq c} => {PrelBase.Eq (Foo a b c)} = $dEqFoo0;
+instance _forall_ [a b c] => {PrelBase.Eval (Foo a b c)} = $dEvalFoo0;
+instance _forall_ [a b c] {PrelBase.Ord a, PrelBase.Ord b, PrelBase.Ord c} => {PrelBase.Ord (Foo a b c)} = $dOrdFoo0;
_declarations_
-1 $d1 _:_ _forall_ [a b c] {PrelBase.Eq a, PrelBase.Eq b, PrelBase.Eq c} => {PrelBase.Eq (Foo a b c)} ;;
-1 $d2 _:_ _forall_ [a b c] => {PrelBase.Eval (Foo a b c)} ;;
-1 $d3 _:_ _forall_ [a b c] {PrelBase.Ord a, PrelBase.Ord b, PrelBase.Ord c, PrelBase.Eq (Foo a b c)} => {PrelBase.Ord (Foo a b c)} ;;
+1 $dEqFoo0 _:_ _forall_ [a b c] {PrelBase.Eq a, PrelBase.Eq b, PrelBase.Eq c} => {PrelBase.Eq (Foo a b c)} ;;
+1 $dEvalFoo0 _:_ _forall_ [a b c] => {PrelBase.Eval (Foo a b c)} ;;
+1 $dOrdFoo0 _:_ _forall_ [a b c] {PrelBase.Ord a, PrelBase.Ord b, PrelBase.Ord c, PrelBase.Eq (Foo a b c)} => {PrelBase.Ord (Foo a b c)} ;;
1 .... _:_ _forall_ [a b c] => b -> b -> Foo a b c ;;
1 ..... _:_ _forall_ [a b c] => b -> b -> Foo a b c ;;
1 <<<< _:_ _forall_ [a b c] => c -> c -> Foo a b c ;;
-1 class Bar a where {meth1 :: a -> a -> PrelBase.Bool; ///// :: a -> a -> PrelBase.Bool; meth2 :: _forall_ [b] => a -> b -> PrelBase.Bool} ;
+1 class Bar a where {meth2 :: _forall_ [b] => a -> b -> PrelBase.Bool; ///// :: a -> a -> PrelBase.Bool; meth1 :: a -> a -> PrelBase.Bool} ;
1 class {Bar a} => Bar2 a ;
1 data Foo a b c = MkFoo1 a a | :## b c | MkFoo3 b b | :*** c c ;
1 f1 _:_ _forall_ [a b c] => a -> a -> Foo a b c ;;
==================== Typechecked ====================
+Word.bitLsh{-r3A-} =
+ _/\_ a_tr3y -> \ x1_B1 ->
+ case x1_B1 of { Word.:Bits{-r3C-} x2_B2 x3_B3 -> x2_B2;}
Word.bitRsh{-r3z-} =
- _/\_ a_tr3x -> \ tpl_B1 ->
- case tpl_B1 of { Word.:Bits{-r3B-} tpl_B2 tpl_B3 -> tpl_B2;}
-Word.bitLsh{-r3y-} =
- _/\_ a_tr3x -> \ tpl_B1 ->
- case tpl_B1 of { Word.:Bits{-r3B-} tpl_B2 tpl_B3 -> tpl_B3;}
-AbsBinds [a_tan2] [d.Bits_an1] []
+ _/\_ a_tr3y -> \ x1_B1 ->
+ case x1_B1 of { Word.:Bits{-r3C-} x2_B2 x3_B3 -> x3_B3;}
+AbsBinds [a_taqh] [d.Bits_aqg] []
ghc: module version changed to 1; reason: no old .hi file
-_interface_ Word 1
+_interface_ Word 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
-Word Bits(:Bits :Bits bitRsh bitLsh);
+Word Bits(:Bits :Bits bitLsh bitRsh);
_fixities_
infixl 8 bitLsh;
infixl 8 bitRsh;
_declarations_
-1 class Bits a where {bitRsh :: a -> PrelBase.Int -> a; bitLsh :: a -> PrelBase.Int -> a} ;
+1 class Bits a where {bitLsh :: a -> PrelBase.Int -> a; bitRsh :: a -> PrelBase.Int -> a} ;
==================== Typechecked ====================
-ExportOpaque.Con{-r6P-} =
- _/\_ a_tr6W -> \ tpl_B1 ->
- ExportOpaque.Con{-r6P-} {_@_ a_tr6W tpl_B1}
+ExportOpaque.Con{-r6Q-} =
+ _/\_ a_tr6X -> \ x1_B1 ->
+ ExportOpaque.Con{-r6Q-} {_@_ a_tr6X x1_B1}
ExportOpaque.Junk11{-r4-} =
- _/\_ a_tr6U -> ExportOpaque.Junk11{-r4-} {_@_ a_tr6U}
+ _/\_ a_tr6V -> ExportOpaque.Junk11{-r4-} {_@_ a_tr6V}
ExportOpaque.Junk2{-r3-} =
- _/\_ a_tr6U -> ExportOpaque.Junk2{-r3-} {_@_ a_tr6U}
+ _/\_ a_tr6V -> ExportOpaque.Junk2{-r3-} {_@_ a_tr6V}
AbsBinds
-[a_taKh]
+[a_taQG]
[]
-[([a_taKh], ExportOpaque.$d2{-rKl-}, d.Eval_aIQ)]
- d.Eval_aIQ =
- PrelBase.:Eval{-rN-} (ExportOpaque.OpaqueType{-r1d-} a_taKh)
+[([a_taQG], ExportOpaque.$dEvalOpaqueType0{-rQJ-}, d.Eval_aPf)]
+ d.Eval_aPf =
+ PrelErr.error{-87-}
+ {PrelBase.Eval{-24-} (ExportOpaque.OpaqueType{-r1e-} a_taQG)} "Compiler error: bad dictionary Eval"
AbsBinds
-[a_taKi]
+[a_taQH]
[]
-[([a_taKi], ExportOpaque.$d3{-rKq-}, d.Eval_aIW)]
- d.Eval_aIW =
- PrelBase.:Eval{-rN-} (ExportOpaque.FunnyInternalType{-r6O-} a_taKi)
+[([a_taQH],
+ ExportOpaque.$dEvalFunnyInternalType0{-rQO-},
+ d.Eval_aPl)]
+ d.Eval_aPl =
+ PrelErr.error{-87-}
+ {PrelBase.Eval{-24-} (ExportOpaque.FunnyInternalType{-r6P-} a_taQH)} "Compiler error: bad dictionary Eval"
AbsBinds
-[a_taJb]
-[d.Ord_aJx]
-[([a_taJb], ExportOpaque.$d4{-rKp-}, d.Show_aJ2)]
- showsPrec_aKs =
+[a_taPu]
+[d.Ord_aPW]
+[([a_taPu], ExportOpaque.$dShowOpaqueType0{-rQN-}, d.Show_aPr)]
+ showsPrec_aQP =
PrelBase.showsPrec{-r5W-}
- (ExportOpaque.FunnyInternalType{-r6O-} a_taJb)
- d.Show_aJF
- showsPrec_aKj = showsPrec_aKk
- d.Show_aJF = ExportOpaque.$d1{-rKo-} a_taJb d.Ord_aJH
- d.Ord_aJH = d.Ord_aJx
- AbsBinds [] [] [([], showsPrec_aKk, showsPrec_aKt)]
- showsPrec_aKt a_rI9 (ExportOpaque.Con{-r6P-} b1_rIa)
- = PrelBase.showParen{-r6s-} a_rI9 >=_aKm lit_aKn
- PrelBase..{-r6C-}
- [PrelBase.String{-r5T-}, PrelBase.String{-r5T-}, PrelBase.String{-r5T-}] PrelBase.showString{-r6r-} "Con "
- showsPrec_aKs PrelBase.I#{-5b-} 10#
- b1_rIa
- AbsBinds [] [] [([], showList_aKr, showList_aKu)]
- showList_aKu = PrelBase.showList__{-r6Z-}
- (ExportOpaque.OpaqueType{-r1d-} a_taJb) showsPrec_aKj PrelBase.I#{-5b-} 0#
- d.Show_aJ2 =
- PrelBase.:Show{-r1c-}
- (ExportOpaque.OpaqueType{-r1d-} a_taJb) showsPrec_aKk showList_aKr
+ (ExportOpaque.FunnyInternalType{-r6P-} a_taPu)
+ d.Show_aQ6
+ showsPrec_aQI = showsPrec_aPF
+ d.Show_aQ6 =
+ ExportOpaque.$dShowFunnyInternalType0{-rQM-} a_taPu d.Ord_aQ8
+ d.Ord_aQ8 = d.Ord_aPW
+ AbsBinds [] [] [([], showList_aPt, showList_aQQ)]
+ showList_aQQ = PrelBase.showList__{-r70-}
+ (ExportOpaque.OpaqueType{-r1e-} a_taPu) showsPrec_aQI PrelBase.I#{-5b-} 0#
+ AbsBinds [] [] [([], showsPrec_aPF, showsPrec_aQR)]
+ showsPrec_aQR a_rOA (ExportOpaque.Con{-r6Q-} b1_rOB)
+ = PrelBase.showParen{-r6t-} a_rOA >=_aQK lit_aQL
+ PrelBase..{-r6D-}
+ [PrelBase.String{-r5U-}, PrelBase.String{-r5U-}, PrelBase.String{-r5U-}] PrelBase.showString{-r6s-} "Con "
+ showsPrec_aQP PrelBase.I#{-5b-} 10#
+ b1_rOB
+ d.Show_aPr =
+ PrelBase.:Show{-r1d-}
+ (ExportOpaque.OpaqueType{-r1e-} a_taPu) showList_aPt showsPrec_aPF
AbsBinds
-[a_taJT]
-[d.Ord_aK5]
-[([a_taJT], ExportOpaque.$d1{-rKo-}, d.Show_aJQ)]
- $mshowList_aKx =
- PrelBase.$mshowList{-rhx-}
- (ExportOpaque.FunnyInternalType{-r6O-} a_taJT)
- d.Show_aKb
- d.Show_aKb = d.Show_aJQ
- AbsBinds [] [] [([], showsPrec_aKw, showsPrec_aKy)]
- showsPrec_aKy
- = PrelErr.noDefaultMethodError{-8k-}
+[a_taQk]
+[d.Ord_aQw]
+[([a_taQk],
+ ExportOpaque.$dShowFunnyInternalType0{-rQM-},
+ d.Show_aQh)]
+ $mshowList_aQS =
+ PrelBase.$mshowList{-ri7-}
+ (ExportOpaque.FunnyInternalType{-r6P-} a_taQk)
+ d.Show_aQA
+ d.Show_aQA = d.Show_aQh
+ AbsBinds [] [] [([], showList_aQj, showList_aQT)]
+ showList_aQT = $mshowList_aQS
+ AbsBinds [] [] [([], showsPrec_aQs, showsPrec_aQU)]
+ showsPrec_aQU
+ = PrelErr.noMethodBindingError{-8k-}
(PrelBase.Int{-3f-}
- -> ExportOpaque.FunnyInternalType{-r6O-} a_taJT
- -> PrelBase.String{-r5T-}
- -> PrelBase.String{-r5T-}) "<<function>>"
- AbsBinds [] [] [([], showList_aKv, showList_aKz)]
- showList_aKz = $mshowList_aKx
- d.Show_aJQ =
- PrelBase.:Show{-r1c-}
- (ExportOpaque.FunnyInternalType{-r6O-} a_taJT) showsPrec_aKw
- showList_aKv
-lit_aKn = PrelBase.I#{-5b-} 10#
->=_aKm = PrelBase.>={-810-} PrelBase.Int{-3f-} d.Ord_aKg
-d.Ord_aKg = PrelBase.$d6{-rdt-}
+ -> ExportOpaque.FunnyInternalType{-r6P-} a_taQk
+ -> PrelBase.String{-r5U-}
+ -> PrelBase.String{-r5U-}) "Print004.hs:18|showsPrec"
+ d.Show_aQh =
+ PrelBase.:Show{-r1d-}
+ (ExportOpaque.FunnyInternalType{-r6P-} a_taQk) showList_aQj
+ showsPrec_aQs
+lit_aQL = PrelBase.I#{-5b-} 10#
+>=_aQK = PrelBase.>={-8Y-} PrelBase.Int{-3f-} d.Ord_aQF
+d.Ord_aQF = PrelBase.$dOrdInt0{-rdN-}
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ExportOpaque 1
+_interface_ ExportOpaque 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d12 1 $d13 1 $d15 1 $d2 1 $d20 1 $d21 1 $d26 1 $d27 1 $d28 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d40 1 $d41 1 $d42 1 $d43 1 $d6 1 $d7 1 $d8 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 . 1 showList__ 1 showParen 1 showSpace 1 showString 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 ShowS 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d17 1 $d18 1 $d29 1 $d33 1 $d34 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dEvalOrdering0 1 $dNumInt0 1 $dOrd0 1 $dOrd1 1 $dOrdBool0 1 $dOrdChar0 1 $dOrdInt0 1 $dOrdOrdering0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $dShowOrdering0 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 . 1 showList__ 1 showParen 1 showSpace 1 showString 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 ShowS 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dOrdDouble0 1 $dOrdInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ExportOpaque OpaqueType;
_instances_
-instance _forall_ [a] {PrelBase.Ord a} => {PrelBase.Show (FunnyInternalType a)} = $d1;
-instance _forall_ [a] => {PrelBase.Eval (OpaqueType a)} = $d2;
-instance _forall_ [a] => {PrelBase.Eval (FunnyInternalType a)} = $d3;
-instance _forall_ [a] {PrelBase.Ord a} => {PrelBase.Show (OpaqueType a)} = $d4;
+instance _forall_ [a] => {PrelBase.Eval (FunnyInternalType a)} = $dEvalFunnyInternalType0;
+instance _forall_ [a] => {PrelBase.Eval (OpaqueType a)} = $dEvalOpaqueType0;
+instance _forall_ [a] {PrelBase.Ord a} => {PrelBase.Show (FunnyInternalType a)} = $dShowFunnyInternalType0;
+instance _forall_ [a] {PrelBase.Ord a} => {PrelBase.Show (OpaqueType a)} = $dShowOpaqueType0;
_declarations_
-1 $d1 _:_ _forall_ [a] {PrelBase.Ord a} => {PrelBase.Show (FunnyInternalType a)} ;;
-1 $d2 _:_ _forall_ [a] => {PrelBase.Eval (OpaqueType a)} ;;
-1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (FunnyInternalType a)} ;;
-1 $d4 _:_ _forall_ [a] {PrelBase.Ord a} => {PrelBase.Show (OpaqueType a)} ;;
+1 $dEvalFunnyInternalType0 _:_ _forall_ [a] => {PrelBase.Eval (FunnyInternalType a)} ;;
+1 $dEvalOpaqueType0 _:_ _forall_ [a] => {PrelBase.Eval (OpaqueType a)} ;;
+1 $dShowFunnyInternalType0 _:_ _forall_ [a] {PrelBase.Ord a} => {PrelBase.Show (FunnyInternalType a)} ;;
+1 $dShowOpaqueType0 _:_ _forall_ [a] {PrelBase.Ord a} => {PrelBase.Show (OpaqueType a)} ;;
1 data FunnyInternalType a = Junk11 | Junk2 ;
1 data OpaqueType a = Con (FunnyInternalType a) ;
infixl 7 +#
infixr 8 fixr
{- rec -}
-bindwith :: _forall_ [] (OrdClass a, OrdClass b) => a -> b -> b
g :: _forall_ [] (Num a, Eq b) => Foo a -> [b] -> (a, a, a) -> b
+bindwith :: _forall_ [] (OrdClass a, OrdClass b) => a -> b -> b
fixn x y = x
fixl x y = x
fixr x y = x
[]
eqc x = 'a'
class (Ord a) => OrdClass a where {
- orda :: a -> Char; ordb :: a -> Char; ordc :: a -> Char;
+ ordc :: a -> Char; ordb :: a -> Char; orda :: a -> Char;
}
class (Eq a) => EqClass a where {
eqc :: a -> Char;
read003.hs:8:
Occurs check: cannot construct the infinite type:
- aIK = (aIK, aIN, aIQ)
- Expected: aIK
- Inferred: (aIK, [aIY], aIQ)
- In a pattern binding:
- ~(a, b, c)
- | nullity b = a
- | nullity c = a
- | otherwise = a
- where
- nullity = null
+ aMm = (aMm, aMp, aMs)
+ Expected: (aMm, [aMA], aMs)
+ Inferred: aMm
+ In a pattern binding:
+ ~(a, b, c)
+ | nullity b = a
+ | nullity c = a
+ | otherwise = a
+ where
+ nullity = null
Compilation had errors
-_interface_ Int10 1
+_interface_ Int10 1 302
_exports_
Int10 T1(C1) T2(T2C1 T2C2) T3(T3C1 T3C2 T3C3) T4(T4C1 T4C2 T4C3 T4C4) T5(T5C1 T5C2 T5C3 T5C4 T5C5) T6(T6C6) T7(T7C6 T7C7) ;
_declarations_
-_interface_ Rn016 1
+_interface_ Rn016 1 302
_exports_
Rn016 K(op1 op2);
_instances_
-_interface_ Rn017 1
+_interface_ Rn017 1 302
_exports_
Rn017 a b c Wibble(MkWibble) Wobble ;
_declarations_
-rnfail008.hs:18: Warning:
- No explicit method nor default method for `op1'
- in an instance declaration for `K'
-
-rnfail008.hs:18: Warning:
- No explicit method nor default method for `op2'
- in an instance declaration for `K'
-
-rnfail008.hs:14: Warning:
- No explicit method nor default method for `op2'
- in an instance declaration for `K'
-
-
-rnfail008.hs:18: Class `K' does not have a method `op3'
+rnfail008.hs:18: Value not in scope: `op3'
Compilation had errors
Conflicting definitions for `:A'
Defined at rnfail012.hs:9
Defined at rnfail012.hs:3
-
-rnfail012.hs:2:
- Conflicting definitions for `:A'
- Defined at rnfail012.hs:9
- Defined at rnfail012.hs:3
Compilation had errors
--- /dev/null
+TOP = ..
+include $(TOP)/mk/boilerplate.mk
+
+SUBDIRS = should_compile
+
+include $(TOP)/mk/target.mk
+
+
-
-NOTE: Simplifier still going after 4 iterations; bailing out.
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $g0 1 $g1E 1 $g1R 1 $g1T 1 $g1U 1 $g1V 1 $g1W 1 $g1X 1 $g1Y 1 $g1Z 1 $g1l 1 $g1m 1 $g20 1 $g23 1 $g24 1 $g28 1 $g29 1 $g2A 1 $g2G 1 $g2H 1 $g2I 1 $g2S 1 $g2T 1 $g2U 1 $g2V 1 $g2W 1 $g2X 1 $g2Y 1 $g2r 1 $g2s 1 $g2x 1 $g2y 1 $g2z 1 $g30 1 $g33 1 $g34 1 $g35 1 $g36 1 $g37 1 $g3B 1 $g3C 1 $g3D 1 $g3E 1 $g3V 1 $g3W 1 $g3X 1 $g3Y 1 $g3Z 1 $g40 1 $g42 1 $g6 1 $g8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 itos 1 showList__ 1 showLitChar 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1 $g1C 1 $g1D 1 $g1E 1 $g1F 1 $g1G 1 $g1a 1 $g1b 1 $g1c 1 $g1e 1 $g2A 1 $g2D 1 $g2v 1 $g30 1 $g31 1 $g32 1 $g33 1 $g3W 1 $g4 1 $g4a 1 $g4b 1 $g4c 1 $g4d 1 $g4r 1 $g4s 1 $g4v 1 $g5 1 $gD 1 $gK 1 $gg 1 $gh 1 $gi 1 $gj 1 $gk 1 $gl 1 minExpt 1;
-PrelTup 1 :: $d13 1 $d4 1 $d9 1 $g0 1 $g1 1 $g3 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $g1P 1 $g1w 1 $g1x 1 $g22 1 $g24 1 $g25 1 $g26 1 $g27 1 $g28 1 $g2T 1 $g2U 1 $g2Z 1 $g2b 1 $g2c 1 $g2g 1 $g2h 1 $g30 1 $g31 1 $g32 1 $g38 1 $g39 1 $g3a 1 $g3k 1 $g3l 1 $g3q 1 $g3s 1 $g3v 1 $g3w 1 $g3x 1 $g3y 1 $g3z 1 $g42 1 $g43 1 $g4k 1 $g4l 1 $g4m 1 $g4n 1 $g4o 1 $g4p 1 $g4r 1 $gb 1 $gh 1 $gj 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 $w$m/= 1 $wminusInt 1 $wplusInt 1 $wshowSignedInt 1 $wtimesInt 1 itos 1 minusInt 1 plusInt 1 showList__ 1 showLitChar 1 showSignedInt 1 timesInt 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1 $g10 1 $g1M 1 $g1N 1 $g1O 1 $g1P 1 $g1n 1 $g27 1 $g2G 1 $g2o 1 $g2p 1 $g2q 1 $g37 1 $g38 1 $g39 1 $g3a 1 $g3b 1 $g4L 1 $g4M 1 $g4R 1 $g4S 1 $g4f 1 $g4w 1 $g4x 1 $g4y 1 $g9 1 $gT 1 $ga 1 $gq 1 $gr 1 $gs 1 $gt 1 $gu 1 $gv 1 $gw 1 $gx 1 $gy 1 $gz 1 $wjtos 1 $wjtos' 1 $wminusDouble 1 $wplusDouble 1 $wshowSignedInteger 1 $wtimesDouble 1 minExpt 1 minusDouble 1 plusDouble 1 showSignedInteger 1 timesDouble 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dShow3 1;
_exports_
ShouldSucceed area2 Point2(Point2);
_instances_
-instance _forall_ [a] => {PrelBase.Eval (Point2 a)} = $d1;
+instance _forall_ [a] => {PrelBase.Eval (Point2 a)} = $dEvalPoint20;
_declarations_
-1 $d1 _:_ _forall_ [a] => {PrelBase.Eval (Point2 a)} ;; _A_ 0 _U_ _/\_ $x0 -> PrelBase.:Eval {_@_ (Point2 $x0)} ;;
-1 $warea2 _:_ _forall_ [a] => (a -> a -> a) -> (a -> a -> a) -> a -> a -> (a, a) -> (a, a) -> a ;; _A_ 6 _S_ SLLLu(LL)u(LL) _U_ _/\_ $x0 -> \ $x1 :: ($x0 -> $x0 -> $x0) $x2 :: ($x0 -> $x0 -> $x0) $x3 :: $x0 $x4 :: $x0 $x5 :: ($x0, $x0) $x6 :: ($x0, $x0) -> case $x5 of { PrelTup.(,) $x7 $x8 -> case $x6 of { PrelTup.(,) $x9 $xa -> let { $xd :: $x0 = let { $xb :: $x0 = $x1 $x3 $x7 } in let { $xc :: $x0 = $x1 $x4 $xa } in $x2 $xb $xc } in let { $xg :: $x0 = let { $xe :: $x0 = $x1 $x4 $x8 } in let { $xf :: $x0 = $x1 $x3 $x9 } in $x2 $xe $xf } in $x1 $xd $xg;};} ;;
-1 area2 _:_ _forall_ [a] {PrelBase.Num a} => Point2 a -> Point2 a -> Point2 a -> a ;; _A_ 4 _S_ U(AAAASLAAAAA)N(U(LL))N(u(LL))N(u(LL)) $warea2 {PrelTup.(,) Point2 PrelBase.:Num} ;;
+1 $dEvalPoint20 _:_ _forall_ [a] => {PrelBase.Eval (Point2 a)} ;; _A_ 0 _bot_ ;;
+1 $warea2 _:_ _forall_ [a] => (a -> a -> a) -> (a -> a -> a) -> a -> a -> (a, a) -> (a, a) -> a ;; _A_ 6 _S_ LSLLu(LL)u(LL) _u_ _/\_ $x0 -> \ $x1 :: ($x0 -> $x0 -> $x0) $x2 :: ($x0 -> $x0 -> $x0) $x3 :: $x0 $x4 :: $x0 $x5 :: ($x0, $x0) $x6 :: ($x0, $x0) -> case $x5 of { PrelTup.(,) $x7 $x8 -> case $x6 of { PrelTup.(,) $x9 $xa -> let { $xd :: $x0 = let { $xb :: $x0 = $x2 $x3 $x7 } in let { $xc :: $x0 = $x2 $x4 $xa } in $x1 $xb $xc } in let { $xg :: $x0 = let { $xe :: $x0 = $x2 $x4 $x8 } in let { $xf :: $x0 = $x2 $x3 $x9 } in $x1 $xe $xf } in $x2 $xd $xg;};} ;;
+1 area2 _:_ _forall_ [a] {PrelBase.Num a} => Point2 a -> Point2 a -> Point2 a -> a ;; _A_ 4 _S_ U(AAAAAAAALSA)N(U(LL))N(u(LL))N(u(LL)) $warea2 {PrelTup.(,) Point2 PrelBase.:Num} ;;
1 newtype {PrelBase.Num a} => Point2 a = Point2 (a, a) ;
-_interface_ TheUtils 2
+_interface_ TheUtils 2 302
_instance_modules_
PrelArr IO PrelNum
_usages_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed a;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed b;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d9 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dShow3 1;
_exports_
ShouldSucceed c d e;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d9 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dShow3 1;
_exports_
ShouldSucceed g;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed h;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed j k l m;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed n;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d9 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dShow3 1;
_exports_
ShouldSucceed o;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d17 1 $d18 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $m>> 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Monad 1 MonadZero 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d9 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dMonad0 1 $dMonadZero0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $m>> 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Monad 1 MonadZero 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dShow3 1;
_exports_
ShouldSucceed p;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d9 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dShow3 1;
_exports_
ShouldSucceed r s;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed t;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ShouldSucceed f;
_declarations_
-1 f _:_ _forall_ [a b] => b -> a -> b ;;
+1 f _:_ _forall_ [a b] => a -> b -> a ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed v;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed w;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d17 1 $d18 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $m>> 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Monad 1 MonadZero 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d9 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dMonad0 1 $dMonadZero0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $m>> 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Monad 1 MonadZero 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dShow3 1;
_exports_
ShouldSucceed al am;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ShouldSucceed k main s;
_declarations_
-1 k _:_ _forall_ [a b] => b -> a -> b ;;
+1 k _:_ _forall_ [a b] => a -> b -> a ;;
1 main _:_ _forall_ [a] => a -> a ;;
-1 s _:_ _forall_ [a b c] => (b -> c -> a) -> (b -> c) -> b -> a ;;
+1 s _:_ _forall_ [a b c] => (a -> c -> b) -> (a -> c) -> a -> b ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ShouldSucceed k main s;
_declarations_
-1 k _:_ _forall_ [a b] => b -> a -> b ;;
+1 k _:_ _forall_ [a b] => a -> b -> a ;;
1 main _:_ _forall_ [a] => a -> a ;;
-1 s _:_ _forall_ [a b c] => (b -> c -> a) -> (b -> c) -> b -> a ;;
+1 s _:_ _forall_ [a b c] => (a -> c -> b) -> (a -> c) -> a -> b ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
NOTE: Simplifier still going after 4 iterations; bailing out.
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d2 1 $d29 1 $d31 1 $d33 1 $d36 1 $d38 1 Eval 1;
+PrelBase 1 :: $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 Eval 1;
_exports_
ShouldSucceed G K(H M);
_instances_
-instance {PrelBase.Eval K} = $d1;
+instance {PrelBase.Eval K} = $dEvalK0;
_declarations_
-1 $d1 _:_ {PrelBase.Eval K} ;;
+1 $dEvalK0 _:_ {PrelBase.Eval K} ;;
1 data K = H PrelBase.Bool | M G ;
1 type G = [PrelBase.Int] ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d2 1 $d29 1 $d31 1 $d33 1 $d38 1 Eval 1;
+PrelBase 1 :: $dEval0 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 Eval 1;
_exports_
ShouldSucceed Rec(Node);
_instances_
-instance {PrelBase.Eval Rec} = $d1;
+instance {PrelBase.Eval Rec} = $dEvalRec0;
_declarations_
-1 $d1 _:_ {PrelBase.Eval Rec} ;;
+1 $dEvalRec0 _:_ {PrelBase.Eval Rec} ;;
1 data Rec = Node PrelBase.Int Rec ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d2 1 $d29 1 $d30 1 $d31 1 $d33 1 $d36 1 $d38 1 Eval 1;
-PrelTup 1 :: $d13 1;
+PrelBase 1 :: $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 Eval 1;
+PrelTup 1 :: $dEval0 1;
_exports_
ShouldSucceed AList(Node Other);
_instances_
-instance _forall_ [a] => {PrelBase.Eval (AList a)} = $d1;
+instance _forall_ [a] => {PrelBase.Eval (AList a)} = $dEvalAList0;
_declarations_
-1 $d1 _:_ _forall_ [a] => {PrelBase.Eval (AList a)} ;;
+1 $dEvalAList0 _:_ _forall_ [a] => {PrelBase.Eval (AList a)} ;;
1 data AList b = Node b [b] | Other (b, PrelBase.Char) ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d2 1 $d29 1 $d31 1 $d33 1 $d38 1 Eval 1;
+PrelBase 1 :: $dEval0 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 Eval 1;
_exports_
ShouldSucceed F Twine(Twine2) Twist(Twist2);
_instances_
-instance {PrelBase.Eval Twist} = $d1;
-instance {PrelBase.Eval Twine} = $d2;
+instance {PrelBase.Eval Twine} = $dEvalTwine0;
+instance {PrelBase.Eval Twist} = $dEvalTwist0;
_declarations_
-1 $d1 _:_ {PrelBase.Eval Twist} ;;
-1 $d2 _:_ {PrelBase.Eval Twine} ;;
+1 $dEvalTwine0 _:_ {PrelBase.Eval Twine} ;;
+1 $dEvalTwist0 _:_ {PrelBase.Eval Twist} ;;
1 data Twine = Twine2 Twist ;
1 data Twist = Twist2 Twine ;
1 type F = Twine ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed g AList(ANull ANode) IntList;
_instances_
-instance _forall_ [a] => {PrelBase.Eval (AList a)} = $d1;
+instance _forall_ [a] => {PrelBase.Eval (AList a)} = $dEvalAList0;
_declarations_
-1 $d1 _:_ _forall_ [a] => {PrelBase.Eval (AList a)} ;;
+1 $dEvalAList0 _:_ _forall_ [a] => {PrelBase.Eval (AList a)} ;;
1 data AList a = ANull | ANode a (AList a) ;
1 g _:_ _forall_ [a] {PrelBase.Num a} => AList PrelBase.Bool -> a ;;
1 type IntList = AList PrelBase.Int ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d16 1 $d17 1 $d18 1 $d2 1 $d29 1 $d30 1 $d31 1 $d33 1 $d36 1 $d38 1 $m>> 1 Eval 1 Monad 1 MonadPlus 1 MonadZero 1;
-PrelTup 1 :: $d13 1;
+PrelBase 1 :: $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dMonad0 1 $dMonadPlus0 1 $dMonadZero0 1 $m>> 1 Eval 1 Monad 1 MonadPlus 1 MonadZero 1;
+PrelTup 1 :: $dEval0 1;
_exports_
ShouldSucceed g AnnExpr Expr(Var App);
_instances_
-instance _forall_ [a] => {PrelBase.Eval (Expr a)} = $d1;
+instance _forall_ [a] => {PrelBase.Eval (Expr a)} = $dEvalExpr0;
_declarations_
-1 $d1 _:_ _forall_ [a] => {PrelBase.Eval (Expr a)} ;;
+1 $dEvalExpr0 _:_ _forall_ [a] => {PrelBase.Eval (Expr a)} ;;
1 data Expr a = Var [PrelBase.Char] | App (AnnExpr a) (AnnExpr a) ;
1 g _:_ _forall_ [a] => (a, Expr a) -> [[PrelBase.Char]] ;;
1 type AnnExpr a = (a, Expr a) ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d13 1 $d26 1 $d7 1 $m/= 1 Eq 1;
-PrelNum 1 :: $d18 1;
+PrelBase 1 :: $dEq0 1 $dEqBool0 1 $dEqInt0 1 $m/= 1 Eq 1;
+PrelNum 1 :: $dEqDouble0 1;
_exports_
ShouldSucceed A(:A :A op1);
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ShouldSucceed Eq'(:Eq' :Eq' deq);
_instances_
-instance _forall_ [a] {Eq' a} => {Eq' [a]} = $d1;
+instance _forall_ [a] {Eq' a} => {Eq' [a]} = $dEq'0;
_declarations_
-1 $d1 _:_ _forall_ [a] {Eq' a} => {Eq' [a]} ;;
+1 $dEq'0 _:_ _forall_ [a] {Eq' a} => {Eq' [a]} ;;
1 class Eq' a where {deq :: a -> a -> PrelBase.Bool} ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed f;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d13 1 $d26 1 $d7 1 $m/= 1 Eq 1;
-PrelNum 1 :: $d18 1;
+PrelBase 1 :: $dEq0 1 $dEqBool0 1 $dEqInt0 1 $m/= 1 Eq 1;
+PrelNum 1 :: $dEqDouble0 1;
_exports_
ShouldSucceed A(:A :A op1);
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d13 1 $d21 1 $d26 1 $d7 1 $m/= 1 Eq 1;
-PrelNum 1 :: $d18 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqInt0 1 $m/= 1 Eq 1;
+PrelNum 1 :: $dEqDouble0 1;
_exports_
ShouldSucceed f;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ShouldSucceed f H(:H :H op1);
_instances_
-instance {H PrelBase.Bool} = $d1;
+instance {H PrelBase.Bool} = $dHBool0;
_declarations_
-1 $d1 _:_ {H PrelBase.Bool} ;;
+1 $dHBool0 _:_ {H PrelBase.Bool} ;;
1 class H a where {op1 :: a -> a -> a} ;
1 f _:_ PrelBase.Bool -> PrelBase.Int -> PrelBase.Bool ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d2 1 $d29 1 $d31 1 $d33 1 $d38 1 Eval 1;
+PrelBase 1 :: $dEval0 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 Eval 1;
_exports_
ShouldSucceed add app before flatten idb idl lEngth nUll neg rEverse sUm swap Boolean(FF TT) List(Nil Cons) Nat(Zero Succ) Pair(Mkpair) Tree(Leaf Node);
_instances_
-instance _forall_ [a] => {PrelBase.Eval (Tree a)} = $d1;
-instance {PrelBase.Eval Nat} = $d2;
-instance _forall_ [a] => {PrelBase.Eval (List a)} = $d3;
-instance _forall_ [a b] => {PrelBase.Eval (Pair a b)} = $d4;
-instance {PrelBase.Eval Boolean} = $d5;
+instance {PrelBase.Eval Boolean} = $dEvalBoolean0;
+instance _forall_ [a] => {PrelBase.Eval (List a)} = $dEvalList0;
+instance {PrelBase.Eval Nat} = $dEvalNat0;
+instance _forall_ [a b] => {PrelBase.Eval (Pair a b)} = $dEvalPair0;
+instance _forall_ [a] => {PrelBase.Eval (Tree a)} = $dEvalTree0;
_declarations_
-1 $d1 _:_ _forall_ [a] => {PrelBase.Eval (Tree a)} ;;
-1 $d2 _:_ {PrelBase.Eval Nat} ;;
-1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (List a)} ;;
-1 $d4 _:_ _forall_ [a b] => {PrelBase.Eval (Pair a b)} ;;
-1 $d5 _:_ {PrelBase.Eval Boolean} ;;
+1 $dEvalBoolean0 _:_ {PrelBase.Eval Boolean} ;;
+1 $dEvalList0 _:_ _forall_ [a] => {PrelBase.Eval (List a)} ;;
+1 $dEvalNat0 _:_ {PrelBase.Eval Nat} ;;
+1 $dEvalPair0 _:_ _forall_ [a b] => {PrelBase.Eval (Pair a b)} ;;
+1 $dEvalTree0 _:_ _forall_ [a] => {PrelBase.Eval (Tree a)} ;;
1 add _:_ Nat -> Nat -> Nat ;;
1 app _:_ _forall_ [a] => List a -> List a -> List a ;;
1 before _:_ List Nat -> List Nat ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed f A(:A :A op1) B(:B :B op2);
_instances_
-instance _forall_ [a] {B a} => {B [a]} = $d1;
-instance {A PrelBase.Int} = $d2;
+instance {A PrelBase.Int} = $dAInt0;
+instance _forall_ [a] {B a} => {B [a]} = $dB0;
_declarations_
-1 $d1 _:_ _forall_ [a] {B a} => {B [a]} ;;
-1 $d2 _:_ {A PrelBase.Int} ;;
+1 $dAInt0 _:_ {A PrelBase.Int} ;;
+1 $dB0 _:_ _forall_ [a] {B a} => {B [a]} ;;
1 class A a where {op1 :: a} ;
1 class B b where {op2 :: b -> PrelBase.Int} ;
1 f _:_ _forall_ [a b] {A b} => a -> b ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ShouldSucceed B(:B :B op2) C(:C :C op1);
_instances_
-instance _forall_ [a] => {C [a]} = $d1;
-instance _forall_ [a] {B a} => {B [a]} = $d2;
+instance _forall_ [a] {B a} => {B [a]} = $dB0;
+instance _forall_ [a] => {C [a]} = $dC0;
_declarations_
-1 $d1 _:_ _forall_ [a] => {C [a]} ;;
-1 $d2 _:_ _forall_ [a] {B a, C [a]} => {B [a]} ;;
+1 $dB0 _:_ _forall_ [a] {B a, C [a]} => {B [a]} ;;
+1 $dC0 _:_ _forall_ [a] => {C [a]} ;;
1 class {C a} => B a where {op2 :: a -> a -> a} ;
1 class C a where {op1 :: a -> a} ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d2 1 $d29 1 $d31 1 $d33 1 $d36 1 $d38 1 Eval 1;
-PrelTup 1 :: $d13 1;
+PrelBase 1 :: $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 Eval 1;
+PrelTup 1 :: $dEval0 1;
_exports_
ShouldSucceed mAp ranAFE ranOAL sNd AFE(MkAFE) FG(MkFG) OL(MkOL);
_instances_
-instance _forall_ [a b c] => {PrelBase.Eval (AFE a b c)} = $d1;
-instance _forall_ [a b] => {PrelBase.Eval (FG a b)} = $d2;
-instance _forall_ [a] => {PrelBase.Eval (OL a)} = $d3;
+instance _forall_ [a b c] => {PrelBase.Eval (AFE a b c)} = $dEvalAFE0;
+instance _forall_ [a b] => {PrelBase.Eval (FG a b)} = $dEvalFG0;
+instance _forall_ [a] => {PrelBase.Eval (OL a)} = $dEvalOL0;
_declarations_
-1 $d1 _:_ _forall_ [a b c] => {PrelBase.Eval (AFE a b c)} ;;
-1 $d2 _:_ _forall_ [a b] => {PrelBase.Eval (FG a b)} ;;
-1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (OL a)} ;;
+1 $dEvalAFE0 _:_ _forall_ [a b c] => {PrelBase.Eval (AFE a b c)} ;;
+1 $dEvalFG0 _:_ _forall_ [a b] => {PrelBase.Eval (FG a b)} ;;
+1 $dEvalOL0 _:_ _forall_ [a] => {PrelBase.Eval (OL a)} ;;
1 data AFE n a b = MkAFE (OL (n, FG a b)) ;
1 data FG a b = MkFG (OL (a, b)) ;
1 data OL a = MkOL [a] ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d12 1 $d13 1 $d15 1 $d2 1 $d20 1 $d21 1 $d26 1 $d27 1 $d28 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d40 1 $d41 1 $d42 1 $d43 1 $d6 1 $d7 1 $d8 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d17 1 $d18 1 $d29 1 $d33 1 $d34 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d49 1 $d9 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dEvalOrdering0 1 $dNumInt0 1 $dOrd0 1 $dOrd1 1 $dOrdBool0 1 $dOrdChar0 1 $dOrdInt0 1 $dOrdOrdering0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $dShowOrdering0 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dOrdDouble0 1 $dOrdInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dOrd0 1 $dShow3 1;
_exports_
ShouldSucceed fib main1 main2 main3 mem mem1 mem2 mem3 mem4 oR oR1;
_declarations_
-
-NOTE: Simplifier still going after 4 iterations; bailing out.
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed f g Foo(:Foo :Foo o_and);
_instances_
-instance {Foo PrelBase.Int} = $d1;
-instance {Foo PrelBase.Bool} = $d2;
+instance {Foo PrelBase.Bool} = $dFooBool0;
+instance {Foo PrelBase.Int} = $dFooInt0;
_declarations_
-1 $d1 _:_ {Foo PrelBase.Int} ;;
-1 $d2 _:_ {Foo PrelBase.Bool} ;;
+1 $dFooBool0 _:_ {Foo PrelBase.Bool} ;;
+1 $dFooInt0 _:_ {Foo PrelBase.Int} ;;
1 class Foo a where {o_and :: a -> a -> a} ;
1 f _:_ _forall_ [a] => PrelBase.Bool -> a -> PrelBase.Bool ;;
1 g _:_ _forall_ [a b] {Foo b, PrelBase.Num b} => b -> a -> b ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ShouldSucceed Eq'(:Eq' :Eq' doubleeq) Ord'(:Ord' :Ord' lt);
_instances_
-instance {Ord' PrelBase.Int} = $d1;
-instance _forall_ [a] {Eq' a} => {Eq' [a]} = $d2;
-instance {Eq' PrelBase.Int} = $d3;
+instance _forall_ [a] {Eq' a} => {Eq' [a]} = $dEq'0;
+instance {Eq' PrelBase.Int} = $dEq'Int0;
+instance {Ord' PrelBase.Int} = $dOrd'Int0;
_declarations_
-1 $d1 _:_ {Ord' PrelBase.Int} ;;
-1 $d2 _:_ _forall_ [a] {Eq' a} => {Eq' [a]} ;;
-1 $d3 _:_ {Eq' PrelBase.Int} ;;
+1 $dEq'0 _:_ _forall_ [a] {Eq' a} => {Eq' [a]} ;;
+1 $dEq'Int0 _:_ {Eq' PrelBase.Int} ;;
+1 $dOrd'Int0 _:_ {Ord' PrelBase.Int} ;;
1 class Eq' a where {doubleeq :: a -> a -> PrelBase.Bool} ;
1 class {Eq' a} => Ord' a where {lt :: a -> a -> PrelBase.Bool} ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed f Eq'(:Eq' :Eq' deq);
_instances_
-instance _forall_ [a] {Eq' a} => {Eq' [a]} = $d1;
-instance {Eq' PrelBase.Int} = $d2;
+instance _forall_ [a] {Eq' a} => {Eq' [a]} = $dEq'0;
+instance {Eq' PrelBase.Int} = $dEq'Int0;
_declarations_
-1 $d1 _:_ _forall_ [a] {Eq' a} => {Eq' [a]} ;;
-1 $d2 _:_ {Eq' PrelBase.Int} ;;
+1 $dEq'0 _:_ _forall_ [a] {Eq' a} => {Eq' [a]} ;;
+1 $dEq'Int0 _:_ {Eq' PrelBase.Int} ;;
1 class Eq' a where {deq :: a -> a -> PrelBase.Bool} ;
1 f _:_ _forall_ [a] {Eq' [a], PrelBase.Num a} => [a] -> PrelBase.Bool ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 otherwise 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 otherwise 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed f Eq'(:Eq' :Eq' doubleeq) Ord'(:Ord' :Ord' lt);
_instances_
-instance {Ord' PrelBase.Int} = $d1;
-instance {Eq' PrelBase.Int} = $d2;
+instance {Eq' PrelBase.Int} = $dEq'Int0;
+instance {Ord' PrelBase.Int} = $dOrd'Int0;
_declarations_
-1 $d1 _:_ {Ord' PrelBase.Int} ;;
-1 $d2 _:_ {Eq' PrelBase.Int} ;;
+1 $dEq'Int0 _:_ {Eq' PrelBase.Int} ;;
+1 $dOrd'Int0 _:_ {Ord' PrelBase.Int} ;;
1 class Eq' a where {doubleeq :: a -> a -> PrelBase.Bool} ;
1 class {Eq' a} => Ord' a where {lt :: a -> a -> PrelBase.Bool} ;
1 f _:_ _forall_ [a b] {Ord' b, PrelBase.Num b} => b -> a -> PrelBase.Bool ;;
NOTE: Simplifier still going after 4 iterations; bailing out.
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
Duplicated class assertion `Eq' a' in the context: (Eq' a, Eq' a)
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed f Eq'(:Eq' :Eq' doubleeq) Ord'(:Ord' :Ord' lt);
_instances_
-instance _forall_ [a] {Eq' a, Eq' a} => {Eq' [a]} = $d1;
-instance {Eq' PrelBase.Int} = $d2;
+instance _forall_ [a] {Eq' a, Eq' a} => {Eq' [a]} = $dEq'0;
+instance {Eq' PrelBase.Int} = $dEq'Int0;
_declarations_
-1 $d1 _:_ _forall_ [a] {Eq' a, Eq' a} => {Eq' [a]} ;;
-1 $d2 _:_ {Eq' PrelBase.Int} ;;
+1 $dEq'0 _:_ _forall_ [a] {Eq' a, Eq' a} => {Eq' [a]} ;;
+1 $dEq'Int0 _:_ {Eq' PrelBase.Int} ;;
1 class Eq' a where {doubleeq :: a -> a -> PrelBase.Bool} ;
1 class {Eq' a} => Ord' a where {lt :: a -> a -> PrelBase.Bool} ;
1 f _:_ _forall_ [a b] {Eq' [b], PrelBase.Num b} => [b] -> a -> PrelBase.Bool ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed dand f Eq'(:Eq' :Eq' deq);
_instances_
-instance _forall_ [a] {Eq' a} => {Eq' [a]} = $d1;
-instance {Eq' PrelBase.Int} = $d2;
+instance _forall_ [a] {Eq' a} => {Eq' [a]} = $dEq'0;
+instance {Eq' PrelBase.Int} = $dEq'Int0;
_declarations_
-1 $d1 _:_ _forall_ [a] {Eq' a} => {Eq' [a]} ;;
-1 $d2 _:_ {Eq' PrelBase.Int} ;;
+1 $dEq'0 _:_ _forall_ [a] {Eq' a} => {Eq' [a]} ;;
+1 $dEq'Int0 _:_ {Eq' PrelBase.Int} ;;
1 class Eq' a where {deq :: a -> a -> PrelBase.Bool} ;
1 dand _:_ PrelBase.Bool -> PrelBase.Bool -> PrelBase.Bool ;;
1 f _:_ _forall_ [a] {Eq' a} => a -> a -> PrelBase.Bool ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed f Eq2(:Eq2 :Eq2 doubleeq) Ord2(:Ord2 :Ord2 lt);
_instances_
-instance _forall_ [a] {Eq2 a, Ord2 a} => {Eq2 [a]} = $d1;
-instance {Ord2 PrelBase.Int} = $d2;
-instance {Eq2 PrelBase.Int} = $d3;
+instance _forall_ [a] {Eq2 a, Ord2 a} => {Eq2 [a]} = $dEq20;
+instance {Eq2 PrelBase.Int} = $dEq2Int0;
+instance {Ord2 PrelBase.Int} = $dOrd2Int0;
_declarations_
-1 $d1 _:_ _forall_ [a] {Eq2 a, Ord2 a} => {Eq2 [a]} ;;
-1 $d2 _:_ {Ord2 PrelBase.Int} ;;
-1 $d3 _:_ {Eq2 PrelBase.Int} ;;
+1 $dEq20 _:_ _forall_ [a] {Eq2 a, Ord2 a} => {Eq2 [a]} ;;
+1 $dEq2Int0 _:_ {Eq2 PrelBase.Int} ;;
+1 $dOrd2Int0 _:_ {Ord2 PrelBase.Int} ;;
1 class Eq2 a where {doubleeq :: a -> a -> PrelBase.Bool} ;
1 class {Eq2 a} => Ord2 a where {lt :: a -> a -> PrelBase.Bool} ;
1 f _:_ _forall_ [a b] {Eq2 [b], PrelBase.Num b} => [b] -> a -> PrelBase.Bool ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
-ShouldSucceed f Eq2(:Eq2 :Eq2 deq foo);
+ShouldSucceed f Eq2(:Eq2 :Eq2 foo deq);
_instances_
-instance _forall_ [a] {Eq2 a} => {Eq2 [a]} = $d1;
-instance {Eq2 PrelBase.Int} = $d2;
+instance _forall_ [a] {Eq2 a} => {Eq2 [a]} = $dEq20;
+instance {Eq2 PrelBase.Int} = $dEq2Int0;
_declarations_
-1 $d1 _:_ _forall_ [a] {Eq2 a} => {Eq2 [a]} ;;
-1 $d2 _:_ {Eq2 PrelBase.Int} ;;
-1 class Eq2 a where {deq :: a -> a -> PrelBase.Bool; foo :: a -> a} ;
+1 $dEq20 _:_ _forall_ [a] {Eq2 a} => {Eq2 [a]} ;;
+1 $dEq2Int0 _:_ {Eq2 PrelBase.Int} ;;
+1 class Eq2 a where {foo :: a -> a; deq :: a -> a -> PrelBase.Bool} ;
1 f _:_ _forall_ [a] {Eq2 [a], PrelBase.Num a} => [a] -> PrelBase.Bool ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ShouldSucceed Eq2(:Eq2 :Eq2 deq);
_instances_
-instance {Eq2 PrelBase.Int} = $d1;
-instance _forall_ [a] {Eq2 a} => {Eq2 [a]} = $d2;
+instance _forall_ [a] {Eq2 a} => {Eq2 [a]} = $dEq20;
+instance {Eq2 PrelBase.Int} = $dEq2Int0;
_declarations_
-1 $d1 _:_ {Eq2 PrelBase.Int} ;;
-1 $d2 _:_ _forall_ [a] {Eq2 a} => {Eq2 [a]} ;;
+1 $dEq20 _:_ _forall_ [a] {Eq2 a} => {Eq2 [a]} ;;
+1 $dEq2Int0 _:_ {Eq2 PrelBase.Int} ;;
1 class Eq2 a where {deq :: a -> a -> PrelBase.Bool} ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ShouldSucceed Eq1(:Eq1 :Eq1 deq);
_instances_
-instance {Eq1 PrelBase.Int} = $d1;
-instance _forall_ [a] {Eq1 a} => {Eq1 [a]} = $d2;
+instance _forall_ [a] {Eq1 a} => {Eq1 [a]} = $dEq10;
+instance {Eq1 PrelBase.Int} = $dEq1Int0;
_declarations_
-1 $d1 _:_ {Eq1 PrelBase.Int} ;;
-1 $d2 _:_ _forall_ [a] {Eq1 a} => {Eq1 [a]} ;;
+1 $dEq10 _:_ _forall_ [a] {Eq1 a} => {Eq1 [a]} ;;
+1 $dEq1Int0 _:_ {Eq1 PrelBase.Int} ;;
1 class Eq1 a where {deq :: a -> a -> PrelBase.Bool} ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ShouldSucceed f Eq1(:Eq1 :Eq1 deq);
_instances_
-instance _forall_ [a] {Eq1 a} => {Eq1 [a]} = $d1;
-instance {Eq1 PrelBase.Int} = $d2;
+instance _forall_ [a] {Eq1 a} => {Eq1 [a]} = $dEq10;
+instance {Eq1 PrelBase.Int} = $dEq1Int0;
_declarations_
-1 $d1 _:_ _forall_ [a] {Eq1 a} => {Eq1 [a]} ;;
-1 $d2 _:_ {Eq1 PrelBase.Int} ;;
+1 $dEq10 _:_ _forall_ [a] {Eq1 a} => {Eq1 [a]} ;;
+1 $dEq1Int0 _:_ {Eq1 PrelBase.Int} ;;
1 class Eq1 a where {deq :: a -> a -> PrelBase.Bool} ;
1 f _:_ _forall_ [a] {Eq1 [a]} => [a] -> [a] -> PrelBase.Bool ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d2 1 $d29 1 $d31 1 $d33 1 $d38 1 Eval 1;
+PrelBase 1 :: $dEval0 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 Eval 1;
_exports_
ShouldSucceed g Reps(:Reps :Reps f) X(Tag);
_instances_
-instance {Reps PrelBase.Bool} = $d1;
-instance _forall_ [a] => {Reps (X a)} = $d2;
-instance _forall_ [a] => {PrelBase.Eval (X a)} = $d3;
+instance _forall_ [a] => {PrelBase.Eval (X a)} = $dEvalX0;
+instance {Reps PrelBase.Bool} = $dRepsBool0;
+instance _forall_ [a] => {Reps (X a)} = $dRepsX0;
_declarations_
-1 $d1 _:_ {Reps PrelBase.Bool} ;;
-1 $d2 _:_ _forall_ [a] => {Reps (X a)} ;;
-1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (X a)} ;;
+1 $dEvalX0 _:_ _forall_ [a] => {PrelBase.Eval (X a)} ;;
+1 $dRepsBool0 _:_ {Reps PrelBase.Bool} ;;
+1 $dRepsX0 _:_ _forall_ [a] => {Reps (X a)} ;;
1 class Reps r where {f :: r -> r -> r} ;
1 data X a = Tag a ;
1 g _:_ _forall_ [a] {Reps a} => a -> a ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d2 1 $d29 1 $d31 1 $d33 1 $d38 1 Eval 1;
+PrelBase 1 :: $dEval0 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 Eval 1;
_exports_
ShouldSucceed idb Boolean(FF TT);
_instances_
-instance {PrelBase.Eval Boolean} = $d1;
+instance {PrelBase.Eval Boolean} = $dEvalBoolean0;
_declarations_
-1 $d1 _:_ {PrelBase.Eval Boolean} ;;
+1 $dEvalBoolean0 _:_ {PrelBase.Eval Boolean} ;;
1 data Boolean = FF | TT ;
1 idb _:_ Boolean -> Boolean ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-List 2 :: partition 1;
-PrelBase 1 :: $d12 1 $d13 1 $d16 1 $d17 1 $d18 1 $d19 1 $d2 1 $d20 1 $d21 1 $d26 1 $d28 1 $d29 1 $d31 1 $d33 1 $d36 1 $d37 1 $d38 1 $d39 1 $d41 1 $d6 1 $d7 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $m>> 1 $mcompare 1 $mmax 1 $mmin 1 otherwise 1 Eq 1 Eval 1 Functor 1 Monad 1 MonadPlus 1 MonadZero 1 Ord 1 Ordering 1;
+List 1 :: partition 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalOrdering0 1 $dFunctor0 1 $dMonad0 1 $dMonadPlus0 1 $dMonadZero0 1 $dOrd0 1 $dOrd1 1 $dOrdBool0 1 $dOrdInt0 1 $dOrdOrdering0 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $m>> 1 $mcompare 1 $mmax 1 $mmin 1 otherwise 1 Eq 1 Eval 1 Functor 1 Monad 1 MonadPlus 1 MonadZero 1 Ord 1 Ordering 1;
PrelList 1 :: elem 1 head 1;
-PrelNum 1 :: $d17 1 $d18 1;
-PrelTup 1 :: $d11 1 $d13 1 $d15 1 $d49 1 $d51 1 $d9 1 snd 1;
-Set 1 :: $d1 1 $d2 1 elementOf 1 setToList 1 Set 1;
+PrelNum 1 :: $dEqDouble0 1 $dOrdDouble0 1;
+PrelTup 1 :: $dEq0 1 $dEq2 1 $dEval0 1 $dEval2 1 $dOrd0 1 $dOrd2 1 snd 1;
+Set 1 :: $dEqSet0 1 $dEvalSet0 1 elementOf 1 setToList 1 Set 1;
_exports_
ShouldSucceed dfs isCyclic isRecursiveCycle lookupVertex mkDigraph mkEdges mkVertices stronglyConnComp topSort Cycle Digraph(MkDigraph) Edge FlattenedDependencyInfo MaybeErr(Succeeded Failed);
_instances_
-instance _forall_ [a b] => {PrelBase.Eval (MaybeErr a b)} = $d1;
-instance _forall_ [a] => {PrelBase.Eval (Digraph a)} = $d2;
+instance _forall_ [a] => {PrelBase.Eval (Digraph a)} = $dEvalDigraph0;
+instance _forall_ [a b] => {PrelBase.Eval (MaybeErr a b)} = $dEvalMaybeErr0;
_declarations_
-1 $d1 _:_ _forall_ [a b] => {PrelBase.Eval (MaybeErr a b)} ;;
-1 $d2 _:_ _forall_ [a] => {PrelBase.Eval (Digraph a)} ;;
+1 $dEvalDigraph0 _:_ _forall_ [a] => {PrelBase.Eval (Digraph a)} ;;
+1 $dEvalMaybeErr0 _:_ _forall_ [a b] => {PrelBase.Eval (MaybeErr a b)} ;;
1 data Digraph vertex = MkDigraph [vertex] ;
1 data MaybeErr a b = Succeeded a | Failed b ;
1 dfs _:_ _forall_ [a] {PrelBase.Eq a} => (a -> [a]) -> ([a], [a]) -> [a] -> ([a], [a]) ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d2 1 $d29 1 $d31 1 $d33 1 $d38 1 $m>> 1 Eval 1 Monad 1 MonadZero 1;
+PrelBase 1 :: $dEval0 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 $m>> 1 Eval 1 Monad 1 MonadZero 1;
_exports_
ShouldSucceed f Pair(MkPair);
_instances_
-instance _forall_ [a b] => {PrelBase.Eval (Pair a b)} = $d1;
+instance _forall_ [a b] => {PrelBase.Eval (Pair a b)} = $dEvalPair0;
_declarations_
-1 $d1 _:_ _forall_ [a b] => {PrelBase.Eval (Pair a b)} ;;
+1 $dEvalPair0 _:_ _forall_ [a b] => {PrelBase.Eval (Pair a b)} ;;
1 data Pair a b = MkPair a b ;
1 f _:_ _forall_ [a b c :: (* -> *)] {PrelBase.Monad c} => c (Pair a b) -> c b ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d13 1 $d2 1 $d26 1 $d29 1 $d31 1 $d33 1 $d38 1 $d7 1 $m/= 1 not 1 Eq 1 Eval 1;
-PrelNum 1 :: $d18 1;
+PrelBase 1 :: $dEq0 1 $dEqBool0 1 $dEqInt0 1 $dEval0 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 $m/= 1 not 1 Eq 1 Eval 1;
+PrelNum 1 :: $dEqDouble0 1;
_exports_
ShouldSucceed B(X Y) T(D C);
_instances_
-instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (B a)} = $d1;
-instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} = $d2;
-instance _forall_ [a] => {PrelBase.Eval (B a)} = $d3;
-instance _forall_ [a] => {PrelBase.Eval (T a)} = $d4;
+instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (B a)} = $dEqB0;
+instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} = $dEqT0;
+instance _forall_ [a] => {PrelBase.Eval (B a)} = $dEvalB0;
+instance _forall_ [a] => {PrelBase.Eval (T a)} = $dEvalT0;
_declarations_
-1 $d1 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (B a)} ;;
-1 $d2 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} ;;
-1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (B a)} ;;
-1 $d4 _:_ _forall_ [a] => {PrelBase.Eval (T a)} ;;
+1 $dEqB0 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (B a)} ;;
+1 $dEqT0 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} ;;
+1 $dEvalB0 _:_ _forall_ [a] => {PrelBase.Eval (B a)} ;;
+1 $dEvalT0 _:_ _forall_ [a] => {PrelBase.Eval (T a)} ;;
1 data B b = X | Y b ;
1 data T a = D (B a) | C ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d2 1 $d29 1 $d31 1 $d33 1 $d38 1 Eval 1;
+PrelBase 1 :: $dEval0 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 Eval 1;
_exports_
ShouldSucceed idb Boolean(FF TT);
_instances_
-instance {PrelBase.Eval Boolean} = $d1;
+instance {PrelBase.Eval Boolean} = $dEvalBoolean0;
_declarations_
-1 $d1 _:_ {PrelBase.Eval Boolean} ;;
+1 $dEvalBoolean0 _:_ {PrelBase.Eval Boolean} ;;
1 data Boolean = FF | TT ;
1 idb _:_ Boolean -> Boolean ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d13 1 $d2 1 $d26 1 $d29 1 $d31 1 $d33 1 $d38 1 $d7 1 $m/= 1 not 1 Eq 1 Eval 1;
-PrelNum 1 :: $d18 1;
+PrelBase 1 :: $dEq0 1 $dEqBool0 1 $dEqInt0 1 $dEval0 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 $m/= 1 not 1 Eq 1 Eval 1;
+PrelNum 1 :: $dEqDouble0 1;
_exports_
ShouldSucceed B(X Y) T(D C);
_instances_
-instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (B a)} = $d1;
-instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} = $d2;
-instance _forall_ [a] => {PrelBase.Eval (B a)} = $d3;
-instance _forall_ [a] => {PrelBase.Eval (T a)} = $d4;
+instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (B a)} = $dEqB0;
+instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} = $dEqT0;
+instance _forall_ [a] => {PrelBase.Eval (B a)} = $dEvalB0;
+instance _forall_ [a] => {PrelBase.Eval (T a)} = $dEvalT0;
_declarations_
-1 $d1 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (B a)} ;;
-1 $d2 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} ;;
-1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (B a)} ;;
-1 $d4 _:_ _forall_ [a] => {PrelBase.Eval (T a)} ;;
+1 $dEqB0 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (B a)} ;;
+1 $dEqT0 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (T a)} ;;
+1 $dEvalB0 _:_ _forall_ [a] => {PrelBase.Eval (B a)} ;;
+1 $dEvalT0 _:_ _forall_ [a] => {PrelBase.Eval (T a)} ;;
1 data B b = X | Y b ;
1 data T a = D (B a) | C ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d17 1 $d18 1 $m>> 1 Monad 1 MonadZero 1;
+PrelBase 1 :: $dMonad0 1 $dMonadZero0 1 $m>> 1 Monad 1 MonadZero 1;
_exports_
ShouldSucceed x xs;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed EQ(:EQ :EQ ===) NUM(ONE TWO) ORD(:ORD :ORD);
_instances_
-instance {PrelBase.Eval NUM} = $d1;
+instance {PrelBase.Eval NUM} = $dEvalNUM0;
_declarations_
-1 $d1 _:_ {PrelBase.Eval NUM} ;;
+1 $dEvalNUM0 _:_ {PrelBase.Eval NUM} ;;
1 class {ORD a, PrelBase.Show a} => EQ a where {=== :: a -> a -> PrelBase.Bool} ;
1 class {PrelBase.Num a} => ORD a ;
1 data NUM = ONE | TWO ;
in an instance declaration for `Eq'
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldFail 1
+_interface_ ShouldFail 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d12 1 $d13 1 $d2 1 $d26 1 $d28 1 $d29 1 $d31 1 $d33 1 $d37 1 $d38 1 $d39 1 $d41 1 $d6 1 $d7 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mmax 1 $mmin 1 Eq 1 Eval 1 Ord 1 Ordering 1;
-PrelNum 1 :: $d17 1 $d18 1;
+PrelBase 1 :: $dEq0 1 $dEqBool0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalOrdering0 1 $dOrd0 1 $dOrdBool0 1 $dOrdInt0 1 $dOrdOrdering0 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mmax 1 $mmin 1 Eq 1 Eval 1 Ord 1 Ordering 1;
+PrelNum 1 :: $dEqDouble0 1 $dOrdDouble0 1;
_exports_
ShouldFail Bar(MkBar);
_instances_
-instance _forall_ [a] {PrelBase.Ord a} => {PrelBase.Ord (Bar a)} = $d1;
-instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (Bar a)} = $d2;
-instance _forall_ [a] => {PrelBase.Eval (Bar a)} = $d3;
+instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (Bar a)} = $dEqBar0;
+instance _forall_ [a] => {PrelBase.Eval (Bar a)} = $dEvalBar0;
+instance _forall_ [a] {PrelBase.Ord a} => {PrelBase.Ord (Bar a)} = $dOrdBar0;
_declarations_
-1 $d1 _:_ _forall_ [a] {PrelBase.Ord a, PrelBase.Eq (Bar a)} => {PrelBase.Ord (Bar a)} ;;
-1 $d2 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (Bar a)} ;;
-1 $d3 _:_ _forall_ [a] => {PrelBase.Eval (Bar a)} ;;
+1 $dEqBar0 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Eq (Bar a)} ;;
+1 $dEvalBar0 _:_ _forall_ [a] => {PrelBase.Eval (Bar a)} ;;
+1 $dOrdBar0 _:_ _forall_ [a] {PrelBase.Ord a, PrelBase.Eq (Bar a)} => {PrelBase.Ord (Bar a)} ;;
1 data Bar a = MkBar PrelBase.Int a ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d12 1 $d13 1 $d20 1 $d21 1 $d26 1 $d28 1 $d39 1 $d41 1 $d6 1 $d7 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mmax 1 $mmin 1 && 1 Eq 1 Ord 1 Ordering 1;
-PrelNum 1 :: $d17 1 $d18 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqInt0 1 $dEqOrdering0 1 $dOrd0 1 $dOrd1 1 $dOrdBool0 1 $dOrdInt0 1 $dOrdOrdering0 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mmax 1 $mmin 1 && 1 Eq 1 Ord 1 Ordering 1;
+PrelNum 1 :: $dEqDouble0 1 $dOrdDouble0 1;
_exports_
-ShouldSucceed Foo(:Foo :Foo op1 op2);
+ShouldSucceed Foo(:Foo :Foo op2 op1);
_instances_
-instance _forall_ [a] {Foo a} => {Foo [a]} = $d1;
-instance {Foo PrelBase.Int} = $d2;
+instance _forall_ [a] {Foo a} => {Foo [a]} = $dFoo0;
+instance {Foo PrelBase.Int} = $dFooInt0;
_declarations_
-1 $d1 _:_ _forall_ [a] {Foo a} => {Foo [a]} ;;
-1 $d2 _:_ {Foo PrelBase.Int} ;;
+1 $dFoo0 _:_ _forall_ [a] {Foo a} => {Foo [a]} ;;
+1 $dFooInt0 _:_ {Foo PrelBase.Int} ;;
1 $mop1 _:_ _forall_ [a] {Foo a} => a -> PrelBase.Bool ;;
1 $mop2 _:_ _forall_ [a] {Foo a} => _forall_ [b] {PrelBase.Ord b} => a -> b -> b -> b ;;
-1 class Foo a where {op1 = :: a -> PrelBase.Bool; op2 = :: _forall_ [b] {PrelBase.Ord b} => a -> b -> b -> b} ;
+1 class Foo a where {op2 = :: _forall_ [b] {PrelBase.Ord b} => a -> b -> b -> b; op1 = :: a -> PrelBase.Bool} ;
-
-NOTE: Simplifier still going after 4 iterations; bailing out.
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d11 1 $d12 1 $d13 1 $d15 1 $d16 1 $d17 1 $d18 1 $d19 1 $d2 1 $d20 1 $d21 1 $d24 1 $d25 1 $d26 1 $d27 1 $d28 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d40 1 $d41 1 $d42 1 $d43 1 $d5 1 $d6 1 $d7 1 $d8 1 $d9 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $m>> 1 $mcompare 1 $menumFromThenTo 1 $menumFromTo 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 . 1 dropWhile 1 isDigit 1 isSpace 1 ord 1 Enum 1 Eq 1 Eval 1 Functor 1 Monad 1 MonadPlus 1 MonadZero 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
+PrelBase 1 :: $dEnum0 1 $dEnumBool0 1 $dEnumChar0 1 $dEnumInt0 1 $dEnumOrdering0 1 $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dEvalOrdering0 1 $dFunctor0 1 $dMonad0 1 $dMonadPlus0 1 $dMonadZero0 1 $dNumInt0 1 $dOrd0 1 $dOrd1 1 $dOrdBool0 1 $dOrdChar0 1 $dOrdInt0 1 $dOrdOrdering0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $dShowOrdering0 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $m>> 1 $mcompare 1 $menumFromThenTo 1 $menumFromTo 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 . 1 dropWhile 1 isDigit 1 isSpace 1 ord 1 Enum 1 Eq 1 Eval 1 Functor 1 Monad 1 MonadPlus 1 MonadZero 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
PrelList 1 :: all 1 length 1 null 1 tail 1;
-PrelNum 1 :: $d1 1 $d10 1 $d15 1 $d16 1 $d17 1 $d18 1 $d2 1 $d29 1 $d30 1 $d31 1 $d32 1 $d33 1 $d34 1 $d35 1 $d36 1 $d37 1 $d38 1 $d39 1 $d5 1 $d6 1 $d7 1 $d8 1 $mdiv 1 $mdivMod 1 $mmod 1 $mquot 1 $mrem 1 ^ 1 Integral 1 Ratio 1 Rational 1 Real 1;
-PrelTup 1 :: $d13 1 $d4 1 $d49 1 $d9 1;
+PrelNum 1 :: $dEnumDouble0 1 $dEnumInteger0 1 $dEnumRatio0 1 $dEqDouble0 1 $dEqInteger0 1 $dEqRatio0 1 $dEvalRatio0 1 $dIntegralInt0 1 $dIntegralInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dNumRatio0 1 $dOrdDouble0 1 $dOrdInteger0 1 $dOrdRatio0 1 $dRealDouble0 1 $dRealInt0 1 $dRealInteger0 1 $dRealRatio0 1 $dShowDouble0 1 $dShowInteger0 1 $dShowRatio0 1 $mdiv 1 $mdivMod 1 $mmod 1 $mquot 1 $mrem 1 ^ 1 Integral 1 Ratio 1 Rational 1 Real 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dOrd0 1 $dShow3 1;
_exports_
-ShouldSucceed charToInt lines' seperatedBy span' strToInt whiteSpace Parse(:Parse :Parse parseFile parseLine parseType parse forced);
+ShouldSucceed charToInt lines' seperatedBy span' strToInt whiteSpace Parse(:Parse :Parse forced parse parseType parseLine parseFile);
_instances_
-instance _forall_ [a] {Parse a} => {Parse [a]} = $d1;
-instance {Parse PrelBase.Char} = $d2;
-instance {Parse PrelBase.Int} = $d3;
+instance _forall_ [a] {Parse a} => {Parse [a]} = $dParse0;
+instance {Parse PrelBase.Char} = $dParseChar0;
+instance {Parse PrelBase.Int} = $dParseInt0;
_declarations_
-1 $d1 _:_ _forall_ [a] {Parse a} => {Parse [a]} ;;
-1 $d2 _:_ {Parse PrelBase.Char} ;;
-1 $d3 _:_ {Parse PrelBase.Int} ;;
+1 $dParse0 _:_ _forall_ [a] {Parse a} => {Parse [a]} ;;
+1 $dParseChar0 _:_ {Parse PrelBase.Char} ;;
+1 $dParseInt0 _:_ {Parse PrelBase.Int} ;;
1 $mforced _:_ _forall_ [a] {Parse a} => a -> PrelBase.Bool ;;
1 $mparse _:_ _forall_ [a] {Parse a} => PrelBase.String -> (a, PrelBase.String) ;;
1 $mparseFile _:_ _forall_ [a] {Parse a} => PrelBase.String -> [a] ;;
1 $mparseLine _:_ _forall_ [a] {Parse a} => PrelBase.String -> a ;;
1 charToInt _:_ PrelBase.Char -> PrelBase.Int ;;
-1 class Parse a where {parseFile = :: PrelBase.String -> [a]; parseLine = :: PrelBase.String -> a; parseType :: PrelBase.String -> (a, PrelBase.String); parse = :: PrelBase.String -> (a, PrelBase.String); forced = :: a -> PrelBase.Bool} ;
+1 class Parse a where {forced = :: a -> PrelBase.Bool; parse = :: PrelBase.String -> (a, PrelBase.String); parseType :: PrelBase.String -> (a, PrelBase.String); parseLine = :: PrelBase.String -> a; parseFile = :: PrelBase.String -> [a]} ;
1 lines' _:_ [PrelBase.Char] -> [[PrelBase.Char]] ;;
1 seperatedBy _:_ PrelBase.Char -> PrelBase.String -> [PrelBase.String] ;;
1 span' _:_ _forall_ [a] => (a -> PrelBase.Bool) -> [a] -> ([a], [a]) ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d12 1 $d13 1 $d15 1 $d2 1 $d20 1 $d21 1 $d26 1 $d27 1 $d28 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d40 1 $d41 1 $d42 1 $d43 1 $d6 1 $d7 1 $d8 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d17 1 $d18 1 $d29 1 $d33 1 $d34 1 $d35 1;
-PrelTup 1 :: $d11 1 $d15 1 $d2 1 $d51 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dEvalOrdering0 1 $dNumInt0 1 $dOrd0 1 $dOrd1 1 $dOrdBool0 1 $dOrdChar0 1 $dOrdInt0 1 $dOrdOrdering0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $dShowOrdering0 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dOrdDouble0 1 $dOrdInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
+PrelTup 1 :: $dEq2 1 $dEval2 1 $dOrd2 1 $dShow1 1;
_exports_
ShouldSucceed f f2 f3;
_declarations_
NOTE: Simplifier still going after 4 iterations; bailing out.
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
_exports_
ShouldSucceed f Normal(:Normal :Normal normal);
_instances_
-instance _forall_ [a b] => {Normal (a -> b)} = $d1;
+instance _forall_ [a b] => {Normal (a -> b)} = $dNormal0;
_declarations_
-1 $d1 _:_ _forall_ [a b] => {Normal (a -> b)} ;;
+1 $dNormal0 _:_ _forall_ [a b] => {Normal (a -> b)} ;;
1 class Normal a where {normal :: a -> PrelBase.Bool} ;
1 f _:_ _forall_ [a] => a -> PrelBase.Bool ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed f g h;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
IOExts 1 ::;
-PrelBase 1 :: $d2 1 $d29 1 $d31 1 $d33 1 $d38 1 Eval 1;
+PrelBase 1 :: $dEval0 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 Eval 1;
PrelGHC 2 ::;
_exports_
IOExts boundsIOArray freezeIOArray newIOArray newIORef readIOArray readIORef reallyUnsafePtrEq writeIOArray writeIORef IOArray IORef;
-PrelGHC *# *## **## +# +## -# -## /# /## /=# /=## <# <## <=# <=## ==# ==## ># >## >=# >=## acosDouble# acosFloat# addr2Int# and# asinDouble# asinFloat# atanDouble# atanFloat# chr# cmpInteger# cosDouble# cosFloat# coshDouble# coshFloat# deRefStablePtr# decodeDouble# decodeFloat# delay# divideFloat# double2Float# double2Int# encodeDouble# encodeFloat# eqAddr# eqChar# eqFloat# eqWord# errorIO# expDouble# expFloat# float2Double# float2Int# fork# geAddr# geChar# geFloat# geWord# gtAddr# gtChar# gtFloat# gtWord# iShiftL# iShiftRA# iShiftRL# indexAddrArray# indexAddrOffAddr# indexAddrOffForeignObj# indexArray# indexCharArray# indexCharOffAddr# indexCharOffForeignObj# indexDoubleArray# indexDoubleOffAddr# indexDoubleOffForeignObj# indexFloatArray# indexFloatOffAddr# indexFloatOffForeignObj# indexIntArray# indexIntOffAddr# indexIntOffForeignObj# int2Addr# int2Double# int2Float# int2Integer# int2Word# integer2Int# leAddr# leChar# leFloat# leWord# logDouble# logFloat# ltAddr# ltChar# ltFloat# ltWord# makeForeignObj# makeStablePtr# minusFloat# minusInteger# neAddr# neChar# neFloat# neWord# negateDouble# negateFloat# negateInt# negateInteger# newAddrArray# newArray# newCharArray# newDoubleArray# newFloatArray# newIntArray# newSynchVar# not# or# ord# par# parAt# parAtAbs# parAtForNow# parAtRel# parGlobal# parLocal# plusFloat# plusInteger# powerFloat# putMVar# quotInt# quotRemInteger# quotWord# readAddrArray# readArray# readCharArray# readDoubleArray# readFloatArray# readIntArray# realWorld# reallyUnsafePtrEquality# remInt# remWord# sameMutableArray# sameMutableByteArray# seq# shiftL# shiftRA# shiftRL# sinDouble# sinFloat# sinhDouble# sinhFloat# sqrtDouble# sqrtFloat# takeMVar# tanDouble# tanFloat# tanhDouble# tanhFloat# timesFloat# timesInteger# unsafeFreezeArray# unsafeFreezeByteArray# waitRead# waitWrite# word2Int# word2Integer# writeAddrArray# writeArray# writeCharArray# writeDoubleArray# writeFloatArray# writeForeignObj# writeIntArray# xor# -> Addr# All Array# ByteArray# CCallable CReturnable Char# Double# Float# ForeignObj# Int# MutableArray# MutableByteArray# RealWorld StablePtr# State# SynchVar# Void Word#;
+PrelGHC *# *## **## +# +## -# -## /# /## /=# /=## <# <## <=# <=## ==# ==## ># >## >=# >=## acosDouble# acosFloat# addr2Int# and# asinDouble# asinFloat# assert__ atanDouble# atanFloat# chr# cmpInteger# cosDouble# cosFloat# coshDouble# coshFloat# deRefStablePtr# decodeDouble# decodeFloat# delay# divideFloat# double2Float# double2Int# encodeDouble# encodeFloat# eqAddr# eqChar# eqFloat# eqWord# errorIO# expDouble# expFloat# float2Double# float2Int# fork# geAddr# geChar# geFloat# geWord# gtAddr# gtChar# gtFloat# gtWord# iShiftL# iShiftRA# iShiftRL# indexAddrArray# indexAddrOffAddr# indexAddrOffForeignObj# indexArray# indexCharArray# indexCharOffAddr# indexCharOffForeignObj# indexDoubleArray# indexDoubleOffAddr# indexDoubleOffForeignObj# indexFloatArray# indexFloatOffAddr# indexFloatOffForeignObj# indexIntArray# indexIntOffAddr# indexIntOffForeignObj# indexWordArray# indexWordOffAddr# indexWordOffForeignObj# int2Addr# int2Double# int2Float# int2Integer# int2Word# integer2Int# integer2Word# leAddr# leChar# leFloat# leWord# logDouble# logFloat# ltAddr# ltChar# ltFloat# ltWord# makeForeignObj# makeStablePtr# minusFloat# minusInteger# neAddr# neChar# neFloat# neWord# negateDouble# negateFloat# negateInt# negateInteger# newAddrArray# newArray# newCharArray# newDoubleArray# newFloatArray# newIntArray# newSynchVar# newWordArray# not# or# ord# par# parAt# parAtAbs# parAtForNow# parAtRel# parGlobal# parLocal# plusFloat# plusInteger# powerFloat# putMVar# quotInt# quotRemInteger# quotWord# readAddrArray# readArray# readCharArray# readDoubleArray# readFloatArray# readIntArray# readWordArray# realWorld# reallyUnsafePtrEquality# remInt# remWord# sameMutableArray# sameMutableByteArray# seq# shiftL# shiftRA# shiftRL# sinDouble# sinFloat# sinhDouble# sinhFloat# sizeofByteArray# sizeofMutableByteArray# sqrtDouble# sqrtFloat# takeMVar# tanDouble# tanFloat# tanhDouble# tanhFloat# timesFloat# timesInteger# unsafeFreezeArray# unsafeFreezeByteArray# waitRead# waitWrite# word2Int# word2Integer# writeAddrArray# writeArray# writeCharArray# writeDoubleArray# writeFloatArray# writeForeignObj# writeIntArray# writeWordArray# xor# -> Addr# All Array# ByteArray# CCallable CReturnable Char# Double# Float# ForeignObj# Int# MutableArray# MutableByteArray# RealWorld StablePtr# State# SynchVar# Void Word#;
+PrelHandle openFileEx IOModeEx(BinaryMode TextMode);
PrelIOBase fixIO performGC;
PrelUnsafe trace unsafeInterleaveIO unsafePerformIO;
_instances_
-instance {PrelBase.Eval FooData} = $d1;
+instance {PrelBase.Eval FooData} = $dEvalFooData0;
_declarations_
-1 $d1 _:_ {PrelBase.Eval FooData} ;;
+1 $dEvalFooData0 _:_ {PrelBase.Eval FooData} ;;
1 data FooData = FooData ;
1 type FooType = PrelBase.Int ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d28 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d37 1 $d38 1 $d4 1 $d42 1 $d43 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Ordering 1 Ordering 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dEvalOrdering0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $dShowOrdering0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Ordering 1 Ordering 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
ShouldSucceed Group Ring;
_declarations_
1 $m* _:_ _forall_ [a] {Ring a} => a -> a -> a ;;
1 $mone _:_ _forall_ [a] {Group a} => a ;;
1 $mzero _:_ _forall_ [a] {Group a} => a ;;
-1 class Group a where {compare :: a -> a -> PrelBase.Ordering; fromInteger :: PrelBase.Integer -> a; + :: a -> a -> a; - :: a -> a -> a; zero = :: a; one = :: a} ;
+1 class Group a where {one = :: a; zero = :: a; - :: a -> a -> a; + :: a -> a -> a; fromInteger :: PrelBase.Integer -> a; compare :: a -> a -> PrelBase.Ordering} ;
1 class {Group a} => Ring a where {* = :: a -> a -> a} ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d11 1 $d12 1 $d13 1 $d15 1 $d17 1 $d18 1 $d2 1 $d20 1 $d21 1 $d24 1 $d25 1 $d26 1 $d27 1 $d28 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d40 1 $d41 1 $d42 1 $d43 1 $d5 1 $d6 1 $d7 1 $d8 1 $d9 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $m>> 1 $mcompare 1 $menumFromThenTo 1 $menumFromTo 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 otherwise 1 Enum 1 Eq 1 Eval 1 Monad 1 MonadZero 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
-PrelIO 2 :: putStr 1;
-PrelIOBase 1 :: $d2 1 $d3 1 $d7 1 IO 1;
+PrelBase 1 :: $dEnum0 1 $dEnumBool0 1 $dEnumChar0 1 $dEnumInt0 1 $dEnumOrdering0 1 $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dEvalOrdering0 1 $dMonad0 1 $dMonadZero0 1 $dNumInt0 1 $dOrd0 1 $dOrd1 1 $dOrdBool0 1 $dOrdChar0 1 $dOrdInt0 1 $dOrdOrdering0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $dShowOrdering0 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $m>> 1 $mcompare 1 $menumFromThenTo 1 $menumFromTo 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 otherwise 1 Enum 1 Eq 1 Eval 1 Monad 1 MonadZero 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
+PrelIO 1 :: putStr 1;
+PrelIOBase 1 :: $dEvalIO0 1 $dMonadIO0 1 $dShowIO0 1 IO 1;
PrelList 1 :: sum 1;
-PrelNum 1 :: $d1 1 $d10 1 $d14 1 $d15 1 $d16 1 $d17 1 $d18 1 $d2 1 $d29 1 $d30 1 $d31 1 $d32 1 $d33 1 $d34 1 $d35 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d5 1 $d6 1 $d7 1 $d8 1 $mdiv 1 $mdivMod 1 $mmod 1 $mquot 1 $mrecip 1 $mrem 1 Fractional 1 Integral 1 Ratio 1 Rational 1 Real 1;
-PrelTup 1 :: $d13 1 $d4 1 $d49 1 $d9 1;
+PrelNum 1 :: $dEnumDouble0 1 $dEnumInteger0 1 $dEnumRatio0 1 $dEqDouble0 1 $dEqInteger0 1 $dEqRatio0 1 $dEvalRatio0 1 $dFractionalDouble0 1 $dFractionalRatio0 1 $dIntegralInt0 1 $dIntegralInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dNumRatio0 1 $dOrdDouble0 1 $dOrdInteger0 1 $dOrdRatio0 1 $dRealDouble0 1 $dRealInt0 1 $dRealInteger0 1 $dRealRatio0 1 $dShowDouble0 1 $dShowInteger0 1 $dShowRatio0 1 $mdiv 1 $mdivMod 1 $mmod 1 $mquot 1 $mrecip 1 $mrem 1 Fractional 1 Integral 1 Ratio 1 Rational 1 Real 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dOrd0 1 $dShow3 1;
_exports_
-ShouldSucceed check insertMany out pqSort toOrderedList PriorityQueue(:PriorityQueue :PriorityQueue empty single insert meld splitMin) SeqView(Null Cons);
+ShouldSucceed check insertMany out pqSort toOrderedList PriorityQueue(:PriorityQueue :PriorityQueue splitMin meld insert single empty) SeqView(Null Cons);
_instances_
-instance _forall_ [a :: (* -> *) b] => {PrelBase.Eval (SeqView a b)} = $d1;
+instance _forall_ [a :: (* -> *) b] => {PrelBase.Eval (SeqView a b)} = $dEvalSeqView0;
_declarations_
-1 $d1 _:_ _forall_ [a :: (* -> *) b] => {PrelBase.Eval (SeqView a b)} ;;
+1 $dEvalSeqView0 _:_ _forall_ [a :: (* -> *) b] => {PrelBase.Eval (SeqView a b)} ;;
1 $minsert _:_ _forall_ [a :: (* -> *)] {PriorityQueue a} => _forall_ [b] {PrelBase.Ord b} => b -> a b -> a b ;;
1 check _:_ _forall_ [a :: (* -> *)] {PriorityQueue a} => (_forall_ [b] {PrelBase.Ord b} => a b) -> PrelIOBase.IO PrelBase.() ;;
-1 class PriorityQueue q :: (* -> *) where {empty :: _forall_ [a] {PrelBase.Ord a} => q a; single :: _forall_ [a] {PrelBase.Ord a} => a -> q a; insert = :: _forall_ [a] {PrelBase.Ord a} => a -> q a -> q a; meld :: _forall_ [a] {PrelBase.Ord a} => q a -> q a -> q a; splitMin :: _forall_ [a] {PrelBase.Ord a} => q a -> SeqView q a} ;
+1 class PriorityQueue q :: (* -> *) where {splitMin :: _forall_ [a] {PrelBase.Ord a} => q a -> SeqView q a; meld :: _forall_ [a] {PrelBase.Ord a} => q a -> q a -> q a; insert = :: _forall_ [a] {PrelBase.Ord a} => a -> q a -> q a; single :: _forall_ [a] {PrelBase.Ord a} => a -> q a; empty :: _forall_ [a] {PrelBase.Ord a} => q a} ;
1 data SeqView t :: (* -> *) a = Null | Cons a (t a) ;
1 insertMany _:_ _forall_ [a b :: (* -> *)] {PriorityQueue b, PrelBase.Ord a} => [a] -> b a -> b a ;;
1 out _:_ _forall_ [a] {PrelBase.Num a} => [a] -> PrelIOBase.IO PrelBase.() ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum ShouldSucceed
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d13 1 $d15 1 $d2 1 $d21 1 $d26 1 $d27 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d38 1 $d4 1 $d42 1 $d7 1 $d8 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d18 1 $d29 1 $d33 1 $d35 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dNumInt0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $m- 1 $m/= 1 $mfromInt 1 $mshowList 1 Eq 1 Eval 1 Num 1 Show 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
_exports_
_instances_
-instance _forall_ [a b] {PrelBase.Num b} => {PrelBase.Num (a -> b)} = $d1;
-instance _forall_ [a b] {PrelBase.Eq b} => {PrelBase.Eq (a -> b)} = $d2;
+instance _forall_ [a b] {PrelBase.Eq b} => {PrelBase.Eq (a -> b)} = $dEq0;
+instance _forall_ [a b] {PrelBase.Num b} => {PrelBase.Num (a -> b)} = $dNum0;
_declarations_
-1 $d1 _:_ _forall_ [a b] {PrelBase.Num b, PrelBase.Eq (a -> b), PrelBase.Show (a -> b), PrelBase.Eval (a -> b)} => {PrelBase.Num (a -> b)} ;;
-1 $d2 _:_ _forall_ [a b] {PrelBase.Eq b} => {PrelBase.Eq (a -> b)} ;;
+1 $dEq0 _:_ _forall_ [a b] {PrelBase.Eq b} => {PrelBase.Eq (a -> b)} ;;
+1 $dNum0 _:_ _forall_ [a b] {PrelBase.Num b, PrelBase.Eq (a -> b), PrelBase.Show (a -> b), PrelBase.Eval (a -> b)} => {PrelBase.Num (a -> b)} ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_exports_
ShouldSucceed absAnd absIf bottom f f_rec f_rec0 f_rec1 f_rec2 fac fac_rec fac_rec0 fac_rec1 fac_rec2 fac_rec3 fac_rec4 g g_rec g_rec0 g_rec1 g_rec2 g_rec3 g_rec4 g_rec5 g_rec6 g_rec7 g_rec8 head one s_1_0 s_2_0 s_2_1 s_3_0 s_3_1 s_3_2;
_declarations_
1 absAnd _:_ _forall_ [a] => a -> a -> a ;;
-1 absIf _:_ _forall_ [a b c] => c -> a -> b -> c ;;
+1 absIf _:_ _forall_ [a b c] => a -> b -> c -> a ;;
1 bottom _:_ _forall_ [a] => [a] -> a ;;
1 f _:_ _forall_ [a] => a -> a ;;
1 f_rec _:_ _forall_ [a b] => (b -> a) -> b -> a ;;
1 f_rec0 _:_ _forall_ [a] => a -> a ;;
1 f_rec1 _:_ _forall_ [a] => a -> a ;;
1 f_rec2 _:_ _forall_ [a] => a -> a ;;
-1 fac _:_ _forall_ [a b c d e f g h i j k] => (a, (i, (b, (c, (d, e)))), (j, (b, (c, (d, e))), (f, (c, (d, e)), (g, (d, e), (h, e, e))))) -> (k, (i, (b, (c, (d, e))))) -> a ;;
+1 fac _:_ _forall_ [a b c d e f g h i j k] => (a, (j, (c, (d, (e, f)))), (b, (c, (d, (e, f))), (g, (d, (e, f)), (h, (e, f), (i, f, f))))) -> (k, (j, (c, (d, (e, f))))) -> a ;;
1 fac_rec _:_ _forall_ [a b c d e] => (c -> d -> a) -> (b, d, c) -> (e, d) -> b ;;
1 fac_rec0 _:_ _forall_ [a] => a -> a -> a ;;
1 fac_rec1 _:_ _forall_ [a b c] => (a, b, b) -> (c, b) -> a ;;
-1 fac_rec2 _:_ _forall_ [a b c d e] => (a, (c, b), (d, b, b)) -> (e, (c, b)) -> a ;;
-1 fac_rec3 _:_ _forall_ [a b c d e f g] => (a, (e, (b, c)), (f, (b, c), (d, c, c))) -> (g, (e, (b, c))) -> a ;;
-1 fac_rec4 _:_ _forall_ [a b c d e f g h i] => (a, (g, (b, (c, d))), (h, (b, (c, d)), (e, (c, d), (f, d, d)))) -> (i, (g, (b, (c, d)))) -> a ;;
-1 g _:_ _forall_ [a b c d e f g h i j k l m n o p q r s t u v w x y z tq tr ts tt tu tv tw tx ty tz tA tB tC tD tE tF tG tH tI tJ tK tL tM tN tO tP tQ tR tS tT tU tV tW tX tY tZ t10 t11 t12 t13 t14 t15 t16 t17 t18 t19 t1a t1b t1c t1d t1e t1f t1g t1h t1i t1j t1k t1l t1m t1n t1o t1p t1q t1r t1s t1t t1u t1v t1w t1x t1y t1z t1A t1B t1C t1D t1E t1F t1G t1H t1I t1J t1K t1L t1M t1N t1O t1P t1Q t1R t1S t1T t1U t1V t1W t1X t1Y t1Z t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t2a t2b t2c t2d t2e t2f t2g t2h t2i t2j t2k t2l t2m t2n t2o t2p t2q t2r t2s t2t t2u t2v t2w t2x t2y t2z t2A t2B t2C t2D t2E t2F t2G t2H t2I t2J t2K t2L t2M t2N t2O t2P t2Q t2R t2S t2T t2U t2V t2W t2X t2Y t2Z t30 t31 t32 t33 t34 t35 t36 t37 t38 t39 t3a t3b t3c t3d t3e t3f t3g t3h t3i t3j t3k t3l t3m t3n t3o t3p t3q t3r t3s t3t t3u t3v t3w t3x t3y t3z t3A t3B t3C t3D t3E t3F t3G t3H t3I t3J t3K t3L t3M t3N t3O t3P t3Q t3R t3S t3T t3U t3V t3W t3X t3Y t3Z t40 t41 t42 t43 t44 t45 t46 t47 t48 t49 t4a t4b t4c t4d t4e t4f t4g t4h t4i t4j t4k t4l t4m t4n t4o t4p t4q t4r t4s t4t t4u t4v t4w t4x t4y t4z t4A t4B t4C t4D t4E t4F t4G t4H t4I t4J t4K t4L t4M t4N t4O t4P t4Q t4R t4S t4T t4U t4V t4W t4X t4Y t4Z t50 t51 t52 t53 t54 t55 t56 t57 t58 t59 t5a t5b t5c t5d t5e t5f t5g t5h t5i t5j t5k t5l t5m t5n t5o t5p t5q t5r t5s t5t t5u t5v t5w t5x t5y t5z t5A t5B t5C t5D t5E t5F t5G t5H t5I t5J t5K t5L t5M t5N t5O t5P t5Q t5R t5S t5T t5U t5V t5W t5X t5Y t5Z t60 t61 t62 t63 t64 t65 t66 t67 t68 t69 t6a t6b t6c t6d t6e t6f t6g t6h t6i t6j t6k t6l t6m t6n t6o t6p t6q t6r t6s t6t t6u t6v t6w t6x t6y t6z t6A t6B t6C t6D t6E t6F t6G t6H t6I t6J t6K t6L t6M t6N t6O t6P t6Q t6R t6S t6T t6U t6V t6W t6X t6Y t6Z t70 t71 t72 t73 t74 t75 t76 t77 t78 t79 t7a t7b t7c t7d t7e t7f t7g t7h t7i t7j t7k t7l t7m t7n t7o t7p t7q t7r t7s t7t t7u t7v t7w t7x t7y t7z t7A t7B t7C t7D t7E t7F t7G t7H t7I t7J t7K t7L t7M t7N t7O t7P t7Q t7R t7S t7T t7U t7V t7W t7X t7Y t7Z t80 t81 t82 t83 t84 t85 t86 t87 t88 t89 t8a t8b t8c t8d t8e t8f t8g t8h t8i t8j] => t8j -> b -> (t8j, t4b, t4a) -> (a, (t49, (c, (d, (e, (f, (g, (h, (i, j, j), (i, k, k)), (h, (l, m, m), (l, n, n))), (g, (o, (p, q, q), (p, r, r)), (o, (s, t, t), (s, u, u)))), (f, (v, (w, (x, y, y), (x, z, z)), (w, (tq, tr, tr), (tq, ts, ts))), (v, (tt, (tu, tv, tv), (tu, tw, tw)), (tt, (tx, ty, ty), (tx, tz, tz))))), (e, (tA, (tB, (tC, (tD, tE, tE), (tD, tF, tF)), (tC, (tG, tH, tH), (tG, tI, tI))), (tB, (tJ, (tK, tL, tL), (tK, tM, tM)), (tJ, (tN, tO, tO), (tN, tP, tP)))), (tA, (tQ, (tR, (tS, tT, tT), (tS, tU, tU)), (tR, (tV, tW, tW), (tV, tX, tX))), (tQ, (tY, (tZ, t10, t10), (tZ, t11, t11)), (tY, (t12, t13, t13), (t12, t14, t14)))))), (d, (t15, (t16, (t17, (t18, (t19, t1a, t1a), (t19, t1b, t1b)), (t18, (t1c, t1d, t1d), (t1c, t1e, t1e))), (t17, (t1f, (t1g, t1h, t1h), (t1g, t1i, t1i)), (t1f, (t1j, t1k, t1k), (t1j, t1l, t1l)))), (t16, (t1m, (t1n, (t1o, t1p, t1p), (t1o, t1q, t1q)), (t1n, (t1r, t1s, t1s), (t1r, t1t, t1t))), (t1m, (t1u, (t1v, t1w, t1w), (t1v, t1x, t1x)), (t1u, (t1y, t1z, t1z), (t1y, t1A, t1A))))), (t15, (t1B, (t1C, (t1D, (t1E, t1F, t1F), (t1E, t1G, t1G)), (t1D, (t1H, t1I, t1I), (t1H, t1J, t1J))), (t1C, (t1K, (t1L, t1M, t1M), (t1L, t1N, t1N)), (t1K, (t1O, t1P, t1P), (t1O, t1Q, t1Q)))), (t1B, (t1R, (t1S, (t1T, t1U, t1U), (t1T, t1V, t1V)), (t1S, (t1W, t1X, t1X), (t1W, t1Y, t1Y))), (t1R, (t1Z, (t20, t21, t21), (t20, t22, t22)), (t1Z, (t23, t24, t24), (t23, t25, t25))))))), (c, (t26, (t27, (t28, (t29, (t2a, (t2b, t2c, t2c), (t2b, t2d, t2d)), (t2a, (t2e, t2f, t2f), (t2e, t2g, t2g))), (t29, (t2h, (t2i, t2j, t2j), (t2i, t2k, t2k)), (t2h, (t2l, t2m, t2m), (t2l, t2n, t2n)))), (t28, (t2o, (t2p, (t2q, t2r, t2r), (t2q, t2s, t2s)), (t2p, (t2t, t2u, t2u), (t2t, t2v, t2v))), (t2o, (t2w, (t2x, t2y, t2y), (t2x, t2z, t2z)), (t2w, (t2A, t2B, t2B), (t2A, t2C, t2C))))), (t27, (t2D, (t2E, (t2F, (t2G, t2H, t2H), (t2G, t2I, t2I)), (t2F, (t2J, t2K, t2K), (t2J, t2L, t2L))), (t2E, (t2M, (t2N, t2O, t2O), (t2N, t2P, t2P)), (t2M, (t2Q, t2R, t2R), (t2Q, t2S, t2S)))), (t2D, (t2T, (t2U, (t2V, t2W, t2W), (t2V, t2X, t2X)), (t2U, (t2Y, t2Z, t2Z), (t2Y, t30, t30))), (t2T, (t31, (t32, t33, t33), (t32, t34, t34)), (t31, (t35, t36, t36), (t35, t37, t37)))))), (t26, (t38, (t39, (t3a, (t3b, (t3c, t3d, t3d), (t3c, t3e, t3e)), (t3b, (t3f, t3g, t3g), (t3f, t3h, t3h))), (t3a, (t3i, (t3j, t3k, t3k), (t3j, t3l, t3l)), (t3i, (t3m, t3n, t3n), (t3m, t3o, t3o)))), (t39, (t3p, (t3q, (t3r, t3s, t3s), (t3r, t3t, t3t)), (t3q, (t3u, t3v, t3v), (t3u, t3w, t3w))), (t3p, (t3x, (t3y, t3z, t3z), (t3y, t3A, t3A)), (t3x, (t3B, t3C, t3C), (t3B, t3D, t3D))))), (t38, (t3E, (t3F, (t3G, (t3H, t3I, t3I), (t3H, t3J, t3J)), (t3G, (t3K, t3L, t3L), (t3K, t3M, t3M))), (t3F, (t3N, (t3O, t3P, t3P), (t3O, t3Q, t3Q)), (t3N, (t3R, t3S, t3S), (t3R, t3T, t3T)))), (t3E, (t3U, (t3V, (t3W, t3X, t3X), (t3W, t3Y, t3Y)), (t3V, (t3Z, t40, t40), (t3Z, t41, t41))), (t3U, (t42, (t43, t44, t44), (t43, t45, t45)), (t42, (t46, t47, t47), (t46, t48, t48)))))))), (t49, (t4c, (t4d, (t4e, (t4f, (t4g, (t4h, (t4i, t4j, t4j), (t4i, t4k, t4k)), (t4h, (t4l, t4m, t4m), (t4l, t4n, t4n))), (t4g, (t4o, (t4p, t4q, t4q), (t4p, t4r, t4r)), (t4o, (t4s, t4t, t4t), (t4s, t4u, t4u)))), (t4f, (t4v, (t4w, (t4x, t4y, t4y), (t4x, t4z, t4z)), (t4w, (t4A, t4B, t4B), (t4A, t4C, t4C))), (t4v, (t4D, (t4E, t4F, t4F), (t4E, t4G, t4G)), (t4D, (t4H, t4I, t4I), (t4H, t4J, t4J))))), (t4e, (t4K, (t4L, (t4M, (t4N, t4O, t4O), (t4N, t4P, t4P)), (t4M, (t4Q, t4R, t4R), (t4Q, t4S, t4S))), (t4L, (t4T, (t4U, t4V, t4V), (t4U, t4W, t4W)), (t4T, (t4X, t4Y, t4Y), (t4X, t4Z, t4Z)))), (t4K, (t50, (t51, (t52, t53, t53), (t52, t54, t54)), (t51, (t55, t56, t56), (t55, t57, t57))), (t50, (t58, (t59, t5a, t5a), (t59, t5b, t5b)), (t58, (t5c, t5d, t5d), (t5c, t5e, t5e)))))), (t4d, (t5f, (t5g, (t5h, (t5i, (t5j, t5k, t5k), (t5j, t5l, t5l)), (t5i, (t5m, t5n, t5n), (t5m, t5o, t5o))), (t5h, (t5p, (t5q, t5r, t5r), (t5q, t5s, t5s)), (t5p, (t5t, t5u, t5u), (t5t, t5v, t5v)))), (t5g, (t5w, (t5x, (t5y, t5z, t5z), (t5y, t5A, t5A)), (t5x, (t5B, t5C, t5C), (t5B, t5D, t5D))), (t5w, (t5E, (t5F, t5G, t5G), (t5F, t5H, t5H)), (t5E, (t5I, t5J, t5J), (t5I, t5K, t5K))))), (t5f, (t5L, (t5M, (t5N, (t5O, t5P, t5P), (t5O, t5Q, t5Q)), (t5N, (t5R, t5S, t5S), (t5R, t5T, t5T))), (t5M, (t5U, (t5V, t5W, t5W), (t5V, t5X, t5X)), (t5U, (t5Y, t5Z, t5Z), (t5Y, t60, t60)))), (t5L, (t61, (t62, (t63, t64, t64), (t63, t65, t65)), (t62, (t66, t67, t67), (t66, t68, t68))), (t61, (t69, (t6a, t6b, t6b), (t6a, t6c, t6c)), (t69, (t6d, t6e, t6e), (t6d, t6f, t6f))))))), (t4c, (t6g, (t6h, (t6i, (t6j, (t6k, (t6l, t6m, t6m), (t6l, t6n, t6n)), (t6k, (t6o, t6p, t6p), (t6o, t6q, t6q))), (t6j, (t6r, (t6s, t6t, t6t), (t6s, t6u, t6u)), (t6r, (t6v, t6w, t6w), (t6v, t6x, t6x)))), (t6i, (t6y, (t6z, (t6A, t6B, t6B), (t6A, t6C, t6C)), (t6z, (t6D, t6E, t6E), (t6D, t6F, t6F))), (t6y, (t6G, (t6H, t6I, t6I), (t6H, t6J, t6J)), (t6G, (t6K, t6L, t6L), (t6K, t6M, t6M))))), (t6h, (t6N, (t6O, (t6P, (t6Q, t6R, t6R), (t6Q, t6S, t6S)), (t6P, (t6T, t6U, t6U), (t6T, t6V, t6V))), (t6O, (t6W, (t6X, t6Y, t6Y), (t6X, t6Z, t6Z)), (t6W, (t70, t71, t71), (t70, t72, t72)))), (t6N, (t73, (t74, (t75, t76, t76), (t75, t77, t77)), (t74, (t78, t79, t79), (t78, t7a, t7a))), (t73, (t7b, (t7c, t7d, t7d), (t7c, t7e, t7e)), (t7b, (t7f, t7g, t7g), (t7f, t7h, t7h)))))), (t6g, (t7i, (t7j, (t7k, (t7l, (t7m, t7n, t7n), (t7m, t7o, t7o)), (t7l, (t7p, t7q, t7q), (t7p, t7r, t7r))), (t7k, (t7s, (t7t, t7u, t7u), (t7t, t7v, t7v)), (t7s, (t7w, t7x, t7x), (t7w, t7y, t7y)))), (t7j, (t7z, (t7A, (t7B, t7C, t7C), (t7B, t7D, t7D)), (t7A, (t7E, t7F, t7F), (t7E, t7G, t7G))), (t7z, (t7H, (t7I, t7J, t7J), (t7I, t7K, t7K)), (t7H, (t7L, t7M, t7M), (t7L, t7N, t7N))))), (t7i, (t7O, (t7P, (t7Q, (t7R, t7S, t7S), (t7R, t7T, t7T)), (t7Q, (t7U, t7V, t7V), (t7U, t7W, t7W))), (t7P, (t7X, (t7Y, t7Z, t7Z), (t7Y, t80, t80)), (t7X, (t81, t82, t82), (t81, t83, t83)))), (t7O, (t84, (t85, (t86, t87, t87), (t86, t88, t88)), (t85, (t89, t8a, t8a), (t89, t8b, t8b))), (t84, (t8c, (t8d, t8e, t8e), (t8d, t8f, t8f)), (t8c, (t8g, t8h, t8h), (t8g, t8i, t8i))))))))) -> a ;;
-1 g_rec _:_ _forall_ [a b c d e f g h i j k] => (b -> c -> d -> k -> a) -> (g -> e -> h -> i -> a) -> f -> b -> (f, e, g) -> (j, k, i) -> j ;;
+1 fac_rec2 _:_ _forall_ [a b c d e] => (a, (d, c), (b, c, c)) -> (e, (d, c)) -> a ;;
+1 fac_rec3 _:_ _forall_ [a b c d e f g] => (a, (f, (c, d)), (b, (c, d), (e, d, d))) -> (g, (f, (c, d))) -> a ;;
+1 fac_rec4 _:_ _forall_ [a b c d e f g h i] => (a, (h, (c, (d, e))), (b, (c, (d, e)), (f, (d, e), (g, e, e)))) -> (i, (h, (c, (d, e)))) -> a ;;
+1 g _:_ _forall_ [a b c d e f g h i j k l m n o p q r s t u v w x y z tq tr ts tt tu tv tw tx ty tz tA tB tC tD tE tF tG tH tI tJ tK tL tM tN tO tP tQ tR tS tT tU tV tW tX tY tZ t10 t11 t12 t13 t14 t15 t16 t17 t18 t19 t1a t1b t1c t1d t1e t1f t1g t1h t1i t1j t1k t1l t1m t1n t1o t1p t1q t1r t1s t1t t1u t1v t1w t1x t1y t1z t1A t1B t1C t1D t1E t1F t1G t1H t1I t1J t1K t1L t1M t1N t1O t1P t1Q t1R t1S t1T t1U t1V t1W t1X t1Y t1Z t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t2a t2b t2c t2d t2e t2f t2g t2h t2i t2j t2k t2l t2m t2n t2o t2p t2q t2r t2s t2t t2u t2v t2w t2x t2y t2z t2A t2B t2C t2D t2E t2F t2G t2H t2I t2J t2K t2L t2M t2N t2O t2P t2Q t2R t2S t2T t2U t2V t2W t2X t2Y t2Z t30 t31 t32 t33 t34 t35 t36 t37 t38 t39 t3a t3b t3c t3d t3e t3f t3g t3h t3i t3j t3k t3l t3m t3n t3o t3p t3q t3r t3s t3t t3u t3v t3w t3x t3y t3z t3A t3B t3C t3D t3E t3F t3G t3H t3I t3J t3K t3L t3M t3N t3O t3P t3Q t3R t3S t3T t3U t3V t3W t3X t3Y t3Z t40 t41 t42 t43 t44 t45 t46 t47 t48 t49 t4a t4b t4c t4d t4e t4f t4g t4h t4i t4j t4k t4l t4m t4n t4o t4p t4q t4r t4s t4t t4u t4v t4w t4x t4y t4z t4A t4B t4C t4D t4E t4F t4G t4H t4I t4J t4K t4L t4M t4N t4O t4P t4Q t4R t4S t4T t4U t4V t4W t4X t4Y t4Z t50 t51 t52 t53 t54 t55 t56 t57 t58 t59 t5a t5b t5c t5d t5e t5f t5g t5h t5i t5j t5k t5l t5m t5n t5o t5p t5q t5r t5s t5t t5u t5v t5w t5x t5y t5z t5A t5B t5C t5D t5E t5F t5G t5H t5I t5J t5K t5L t5M t5N t5O t5P t5Q t5R t5S t5T t5U t5V t5W t5X t5Y t5Z t60 t61 t62 t63 t64 t65 t66 t67 t68 t69 t6a t6b t6c t6d t6e t6f t6g t6h t6i t6j t6k t6l t6m t6n t6o t6p t6q t6r t6s t6t t6u t6v t6w t6x t6y t6z t6A t6B t6C t6D t6E t6F t6G t6H t6I t6J t6K t6L t6M t6N t6O t6P t6Q t6R t6S t6T t6U t6V t6W t6X t6Y t6Z t70 t71 t72 t73 t74 t75 t76 t77 t78 t79 t7a t7b t7c t7d t7e t7f t7g t7h t7i t7j t7k t7l t7m t7n t7o t7p t7q t7r t7s t7t t7u t7v t7w t7x t7y t7z t7A t7B t7C t7D t7E t7F t7G t7H t7I t7J t7K t7L t7M t7N t7O t7P t7Q t7R t7S t7T t7U t7V t7W t7X t7Y t7Z t80 t81 t82 t83 t84 t85 t86 t87 t88 t89 t8a t8b t8c t8d t8e t8f t8g t8h t8i t8j] => t8j -> b -> (t8j, t4a, t49) -> (a, (t4b, (c, (d, (e, (f, (g, (h, (i, j, j), (i, k, k)), (h, (l, m, m), (l, n, n))), (g, (o, (p, q, q), (p, r, r)), (o, (s, t, t), (s, u, u)))), (f, (v, (w, (x, y, y), (x, z, z)), (w, (tq, tr, tr), (tq, ts, ts))), (v, (tt, (tu, tv, tv), (tu, tw, tw)), (tt, (tx, ty, ty), (tx, tz, tz))))), (e, (tA, (tB, (tC, (tD, tE, tE), (tD, tF, tF)), (tC, (tG, tH, tH), (tG, tI, tI))), (tB, (tJ, (tK, tL, tL), (tK, tM, tM)), (tJ, (tN, tO, tO), (tN, tP, tP)))), (tA, (tQ, (tR, (tS, tT, tT), (tS, tU, tU)), (tR, (tV, tW, tW), (tV, tX, tX))), (tQ, (tY, (tZ, t10, t10), (tZ, t11, t11)), (tY, (t12, t13, t13), (t12, t14, t14)))))), (d, (t15, (t16, (t17, (t18, (t19, t1a, t1a), (t19, t1b, t1b)), (t18, (t1c, t1d, t1d), (t1c, t1e, t1e))), (t17, (t1f, (t1g, t1h, t1h), (t1g, t1i, t1i)), (t1f, (t1j, t1k, t1k), (t1j, t1l, t1l)))), (t16, (t1m, (t1n, (t1o, t1p, t1p), (t1o, t1q, t1q)), (t1n, (t1r, t1s, t1s), (t1r, t1t, t1t))), (t1m, (t1u, (t1v, t1w, t1w), (t1v, t1x, t1x)), (t1u, (t1y, t1z, t1z), (t1y, t1A, t1A))))), (t15, (t1B, (t1C, (t1D, (t1E, t1F, t1F), (t1E, t1G, t1G)), (t1D, (t1H, t1I, t1I), (t1H, t1J, t1J))), (t1C, (t1K, (t1L, t1M, t1M), (t1L, t1N, t1N)), (t1K, (t1O, t1P, t1P), (t1O, t1Q, t1Q)))), (t1B, (t1R, (t1S, (t1T, t1U, t1U), (t1T, t1V, t1V)), (t1S, (t1W, t1X, t1X), (t1W, t1Y, t1Y))), (t1R, (t1Z, (t20, t21, t21), (t20, t22, t22)), (t1Z, (t23, t24, t24), (t23, t25, t25))))))), (c, (t26, (t27, (t28, (t29, (t2a, (t2b, t2c, t2c), (t2b, t2d, t2d)), (t2a, (t2e, t2f, t2f), (t2e, t2g, t2g))), (t29, (t2h, (t2i, t2j, t2j), (t2i, t2k, t2k)), (t2h, (t2l, t2m, t2m), (t2l, t2n, t2n)))), (t28, (t2o, (t2p, (t2q, t2r, t2r), (t2q, t2s, t2s)), (t2p, (t2t, t2u, t2u), (t2t, t2v, t2v))), (t2o, (t2w, (t2x, t2y, t2y), (t2x, t2z, t2z)), (t2w, (t2A, t2B, t2B), (t2A, t2C, t2C))))), (t27, (t2D, (t2E, (t2F, (t2G, t2H, t2H), (t2G, t2I, t2I)), (t2F, (t2J, t2K, t2K), (t2J, t2L, t2L))), (t2E, (t2M, (t2N, t2O, t2O), (t2N, t2P, t2P)), (t2M, (t2Q, t2R, t2R), (t2Q, t2S, t2S)))), (t2D, (t2T, (t2U, (t2V, t2W, t2W), (t2V, t2X, t2X)), (t2U, (t2Y, t2Z, t2Z), (t2Y, t30, t30))), (t2T, (t31, (t32, t33, t33), (t32, t34, t34)), (t31, (t35, t36, t36), (t35, t37, t37)))))), (t26, (t38, (t39, (t3a, (t3b, (t3c, t3d, t3d), (t3c, t3e, t3e)), (t3b, (t3f, t3g, t3g), (t3f, t3h, t3h))), (t3a, (t3i, (t3j, t3k, t3k), (t3j, t3l, t3l)), (t3i, (t3m, t3n, t3n), (t3m, t3o, t3o)))), (t39, (t3p, (t3q, (t3r, t3s, t3s), (t3r, t3t, t3t)), (t3q, (t3u, t3v, t3v), (t3u, t3w, t3w))), (t3p, (t3x, (t3y, t3z, t3z), (t3y, t3A, t3A)), (t3x, (t3B, t3C, t3C), (t3B, t3D, t3D))))), (t38, (t3E, (t3F, (t3G, (t3H, t3I, t3I), (t3H, t3J, t3J)), (t3G, (t3K, t3L, t3L), (t3K, t3M, t3M))), (t3F, (t3N, (t3O, t3P, t3P), (t3O, t3Q, t3Q)), (t3N, (t3R, t3S, t3S), (t3R, t3T, t3T)))), (t3E, (t3U, (t3V, (t3W, t3X, t3X), (t3W, t3Y, t3Y)), (t3V, (t3Z, t40, t40), (t3Z, t41, t41))), (t3U, (t42, (t43, t44, t44), (t43, t45, t45)), (t42, (t46, t47, t47), (t46, t48, t48)))))))), (t4b, (t4c, (t4d, (t4e, (t4f, (t4g, (t4h, (t4i, t4j, t4j), (t4i, t4k, t4k)), (t4h, (t4l, t4m, t4m), (t4l, t4n, t4n))), (t4g, (t4o, (t4p, t4q, t4q), (t4p, t4r, t4r)), (t4o, (t4s, t4t, t4t), (t4s, t4u, t4u)))), (t4f, (t4v, (t4w, (t4x, t4y, t4y), (t4x, t4z, t4z)), (t4w, (t4A, t4B, t4B), (t4A, t4C, t4C))), (t4v, (t4D, (t4E, t4F, t4F), (t4E, t4G, t4G)), (t4D, (t4H, t4I, t4I), (t4H, t4J, t4J))))), (t4e, (t4K, (t4L, (t4M, (t4N, t4O, t4O), (t4N, t4P, t4P)), (t4M, (t4Q, t4R, t4R), (t4Q, t4S, t4S))), (t4L, (t4T, (t4U, t4V, t4V), (t4U, t4W, t4W)), (t4T, (t4X, t4Y, t4Y), (t4X, t4Z, t4Z)))), (t4K, (t50, (t51, (t52, t53, t53), (t52, t54, t54)), (t51, (t55, t56, t56), (t55, t57, t57))), (t50, (t58, (t59, t5a, t5a), (t59, t5b, t5b)), (t58, (t5c, t5d, t5d), (t5c, t5e, t5e)))))), (t4d, (t5f, (t5g, (t5h, (t5i, (t5j, t5k, t5k), (t5j, t5l, t5l)), (t5i, (t5m, t5n, t5n), (t5m, t5o, t5o))), (t5h, (t5p, (t5q, t5r, t5r), (t5q, t5s, t5s)), (t5p, (t5t, t5u, t5u), (t5t, t5v, t5v)))), (t5g, (t5w, (t5x, (t5y, t5z, t5z), (t5y, t5A, t5A)), (t5x, (t5B, t5C, t5C), (t5B, t5D, t5D))), (t5w, (t5E, (t5F, t5G, t5G), (t5F, t5H, t5H)), (t5E, (t5I, t5J, t5J), (t5I, t5K, t5K))))), (t5f, (t5L, (t5M, (t5N, (t5O, t5P, t5P), (t5O, t5Q, t5Q)), (t5N, (t5R, t5S, t5S), (t5R, t5T, t5T))), (t5M, (t5U, (t5V, t5W, t5W), (t5V, t5X, t5X)), (t5U, (t5Y, t5Z, t5Z), (t5Y, t60, t60)))), (t5L, (t61, (t62, (t63, t64, t64), (t63, t65, t65)), (t62, (t66, t67, t67), (t66, t68, t68))), (t61, (t69, (t6a, t6b, t6b), (t6a, t6c, t6c)), (t69, (t6d, t6e, t6e), (t6d, t6f, t6f))))))), (t4c, (t6g, (t6h, (t6i, (t6j, (t6k, (t6l, t6m, t6m), (t6l, t6n, t6n)), (t6k, (t6o, t6p, t6p), (t6o, t6q, t6q))), (t6j, (t6r, (t6s, t6t, t6t), (t6s, t6u, t6u)), (t6r, (t6v, t6w, t6w), (t6v, t6x, t6x)))), (t6i, (t6y, (t6z, (t6A, t6B, t6B), (t6A, t6C, t6C)), (t6z, (t6D, t6E, t6E), (t6D, t6F, t6F))), (t6y, (t6G, (t6H, t6I, t6I), (t6H, t6J, t6J)), (t6G, (t6K, t6L, t6L), (t6K, t6M, t6M))))), (t6h, (t6N, (t6O, (t6P, (t6Q, t6R, t6R), (t6Q, t6S, t6S)), (t6P, (t6T, t6U, t6U), (t6T, t6V, t6V))), (t6O, (t6W, (t6X, t6Y, t6Y), (t6X, t6Z, t6Z)), (t6W, (t70, t71, t71), (t70, t72, t72)))), (t6N, (t73, (t74, (t75, t76, t76), (t75, t77, t77)), (t74, (t78, t79, t79), (t78, t7a, t7a))), (t73, (t7b, (t7c, t7d, t7d), (t7c, t7e, t7e)), (t7b, (t7f, t7g, t7g), (t7f, t7h, t7h)))))), (t6g, (t7i, (t7j, (t7k, (t7l, (t7m, t7n, t7n), (t7m, t7o, t7o)), (t7l, (t7p, t7q, t7q), (t7p, t7r, t7r))), (t7k, (t7s, (t7t, t7u, t7u), (t7t, t7v, t7v)), (t7s, (t7w, t7x, t7x), (t7w, t7y, t7y)))), (t7j, (t7z, (t7A, (t7B, t7C, t7C), (t7B, t7D, t7D)), (t7A, (t7E, t7F, t7F), (t7E, t7G, t7G))), (t7z, (t7H, (t7I, t7J, t7J), (t7I, t7K, t7K)), (t7H, (t7L, t7M, t7M), (t7L, t7N, t7N))))), (t7i, (t7O, (t7P, (t7Q, (t7R, t7S, t7S), (t7R, t7T, t7T)), (t7Q, (t7U, t7V, t7V), (t7U, t7W, t7W))), (t7P, (t7X, (t7Y, t7Z, t7Z), (t7Y, t80, t80)), (t7X, (t81, t82, t82), (t81, t83, t83)))), (t7O, (t84, (t85, (t86, t87, t87), (t86, t88, t88)), (t85, (t89, t8a, t8a), (t89, t8b, t8b))), (t84, (t8c, (t8d, t8e, t8e), (t8d, t8f, t8f)), (t8c, (t8g, t8h, t8h), (t8g, t8i, t8i))))))))) -> a ;;
+1 g_rec _:_ _forall_ [a b c d e f g h i j k] => (b -> c -> d -> j -> a) -> (g -> e -> h -> k -> a) -> f -> b -> (f, e, g) -> (i, j, k) -> i ;;
1 g_rec0 _:_ _forall_ [a] => a -> a -> a -> a -> a ;;
1 g_rec1 _:_ _forall_ [a b c] => c -> b -> (c, b, b) -> (a, b, b) -> a ;;
-1 g_rec2 _:_ _forall_ [a b c d e f g] => g -> b -> (g, f, e) -> (a, (d, c, c), (d, f, f)) -> a ;;
-1 g_rec3 _:_ _forall_ [a b c d e f g h i j k l] => l -> b -> (l, h, g) -> (a, (f, (d, e, e), (d, c, c)), (f, (j, k, k), (j, i, i))) -> a ;;
-1 g_rec4 _:_ _forall_ [a b c d e f g h i j k l m n o p q r s t] => t -> b -> (t, l, k) -> (a, (j, (c, (d, e, e), (d, f, f)), (c, (g, h, h), (g, i, i))), (j, (m, (n, o, o), (n, p, p)), (m, (q, r, r), (q, s, s)))) -> a ;;
-1 g_rec5 _:_ _forall_ [a b c d e f g h i j k l m n o p q r s t u v w x y z tq tr ts tt tu tv tw tx ty tz] => tz -> b -> (tz, t, s) -> (a, (r, (c, (d, (e, f, f), (e, g, g)), (d, (h, i, i), (h, j, j))), (c, (k, (l, m, m), (l, n, n)), (k, (o, p, p), (o, q, q)))), (r, (u, (v, (w, x, x), (w, y, y)), (v, (z, tq, tq), (z, tr, tr))), (u, (ts, (tt, tu, tu), (tt, tv, tv)), (ts, (tw, tx, tx), (tw, ty, ty))))) -> a ;;
-1 g_rec6 _:_ _forall_ [a b c d e f g h i j k l m n o p q r s t u v w x y z tq tr ts tt tu tv tw tx ty tz tA tB tC tD tE tF tG tH tI tJ tK tL tM tN tO tP tQ tR tS tT tU tV tW tX tY tZ t10 t11 t12 t13 t14 t15] => t15 -> b -> (t15, tz, ty) -> (a, (tx, (c, (d, (e, (f, g, g), (f, h, h)), (e, (i, j, j), (i, k, k))), (d, (l, (m, n, n), (m, o, o)), (l, (p, q, q), (p, r, r)))), (c, (s, (t, (u, v, v), (u, w, w)), (t, (x, y, y), (x, z, z))), (s, (tq, (tr, ts, ts), (tr, tt, tt)), (tq, (tu, tv, tv), (tu, tw, tw))))), (tx, (tA, (tB, (tC, (tD, tE, tE), (tD, tF, tF)), (tC, (tG, tH, tH), (tG, tI, tI))), (tB, (tJ, (tK, tL, tL), (tK, tM, tM)), (tJ, (tN, tO, tO), (tN, tP, tP)))), (tA, (tQ, (tR, (tS, tT, tT), (tS, tU, tU)), (tR, (tV, tW, tW), (tV, tX, tX))), (tQ, (tY, (tZ, t10, t10), (tZ, t11, t11)), (tY, (t12, t13, t13), (t12, t14, t14)))))) -> a ;;
-1 g_rec7 _:_ _forall_ [a b c d e f g h i j k l m n o p q r s t u v w x y z tq tr ts tt tu tv tw tx ty tz tA tB tC tD tE tF tG tH tI tJ tK tL tM tN tO tP tQ tR tS tT tU tV tW tX tY tZ t10 t11 t12 t13 t14 t15 t16 t17 t18 t19 t1a t1b t1c t1d t1e t1f t1g t1h t1i t1j t1k t1l t1m t1n t1o t1p t1q t1r t1s t1t t1u t1v t1w t1x t1y t1z t1A t1B t1C t1D t1E t1F t1G t1H t1I t1J t1K t1L t1M t1N t1O t1P t1Q t1R t1S t1T t1U t1V t1W t1X t1Y t1Z t20 t21 t22 t23 t24 t25 t26 t27] => t27 -> b -> (t27, t15, t14) -> (a, (t13, (c, (d, (e, (f, (g, h, h), (g, i, i)), (f, (j, k, k), (j, l, l))), (e, (m, (n, o, o), (n, p, p)), (m, (q, r, r), (q, s, s)))), (d, (t, (u, (v, w, w), (v, x, x)), (u, (y, z, z), (y, tq, tq))), (t, (tr, (ts, tt, tt), (ts, tu, tu)), (tr, (tv, tw, tw), (tv, tx, tx))))), (c, (ty, (tz, (tA, (tB, tC, tC), (tB, tD, tD)), (tA, (tE, tF, tF), (tE, tG, tG))), (tz, (tH, (tI, tJ, tJ), (tI, tK, tK)), (tH, (tL, tM, tM), (tL, tN, tN)))), (ty, (tO, (tP, (tQ, tR, tR), (tQ, tS, tS)), (tP, (tT, tU, tU), (tT, tV, tV))), (tO, (tW, (tX, tY, tY), (tX, tZ, tZ)), (tW, (t10, t11, t11), (t10, t12, t12)))))), (t13, (t16, (t17, (t18, (t19, (t1a, t1b, t1b), (t1a, t1c, t1c)), (t19, (t1d, t1e, t1e), (t1d, t1f, t1f))), (t18, (t1g, (t1h, t1i, t1i), (t1h, t1j, t1j)), (t1g, (t1k, t1l, t1l), (t1k, t1m, t1m)))), (t17, (t1n, (t1o, (t1p, t1q, t1q), (t1p, t1r, t1r)), (t1o, (t1s, t1t, t1t), (t1s, t1u, t1u))), (t1n, (t1v, (t1w, t1x, t1x), (t1w, t1y, t1y)), (t1v, (t1z, t1A, t1A), (t1z, t1B, t1B))))), (t16, (t1C, (t1D, (t1E, (t1F, t1G, t1G), (t1F, t1H, t1H)), (t1E, (t1I, t1J, t1J), (t1I, t1K, t1K))), (t1D, (t1L, (t1M, t1N, t1N), (t1M, t1O, t1O)), (t1L, (t1P, t1Q, t1Q), (t1P, t1R, t1R)))), (t1C, (t1S, (t1T, (t1U, t1V, t1V), (t1U, t1W, t1W)), (t1T, (t1X, t1Y, t1Y), (t1X, t1Z, t1Z))), (t1S, (t20, (t21, t22, t22), (t21, t23, t23)), (t20, (t24, t25, t25), (t24, t26, t26))))))) -> a ;;
-1 g_rec8 _:_ _forall_ [a b c d e f g h i j k l m n o p q r s t u v w x y z tq tr ts tt tu tv tw tx ty tz tA tB tC tD tE tF tG tH tI tJ tK tL tM tN tO tP tQ tR tS tT tU tV tW tX tY tZ t10 t11 t12 t13 t14 t15 t16 t17 t18 t19 t1a t1b t1c t1d t1e t1f t1g t1h t1i t1j t1k t1l t1m t1n t1o t1p t1q t1r t1s t1t t1u t1v t1w t1x t1y t1z t1A t1B t1C t1D t1E t1F t1G t1H t1I t1J t1K t1L t1M t1N t1O t1P t1Q t1R t1S t1T t1U t1V t1W t1X t1Y t1Z t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t2a t2b t2c t2d t2e t2f t2g t2h t2i t2j t2k t2l t2m t2n t2o t2p t2q t2r t2s t2t t2u t2v t2w t2x t2y t2z t2A t2B t2C t2D t2E t2F t2G t2H t2I t2J t2K t2L t2M t2N t2O t2P t2Q t2R t2S t2T t2U t2V t2W t2X t2Y t2Z t30 t31 t32 t33 t34 t35 t36 t37 t38 t39 t3a t3b t3c t3d t3e t3f t3g t3h t3i t3j t3k t3l t3m t3n t3o t3p t3q t3r t3s t3t t3u t3v t3w t3x t3y t3z t3A t3B t3C t3D t3E t3F t3G t3H t3I t3J t3K t3L t3M t3N t3O t3P t3Q t3R t3S t3T t3U t3V t3W t3X t3Y t3Z t40 t41 t42 t43 t44 t45 t46 t47 t48 t49 t4a t4b] => t4b -> b -> (t4b, t27, t26) -> (a, (t25, (c, (d, (e, (f, (g, (h, i, i), (h, j, j)), (g, (k, l, l), (k, m, m))), (f, (n, (o, p, p), (o, q, q)), (n, (r, s, s), (r, t, t)))), (e, (u, (v, (w, x, x), (w, y, y)), (v, (z, tq, tq), (z, tr, tr))), (u, (ts, (tt, tu, tu), (tt, tv, tv)), (ts, (tw, tx, tx), (tw, ty, ty))))), (d, (tz, (tA, (tB, (tC, tD, tD), (tC, tE, tE)), (tB, (tF, tG, tG), (tF, tH, tH))), (tA, (tI, (tJ, tK, tK), (tJ, tL, tL)), (tI, (tM, tN, tN), (tM, tO, tO)))), (tz, (tP, (tQ, (tR, tS, tS), (tR, tT, tT)), (tQ, (tU, tV, tV), (tU, tW, tW))), (tP, (tX, (tY, tZ, tZ), (tY, t10, t10)), (tX, (t11, t12, t12), (t11, t13, t13)))))), (c, (t14, (t15, (t16, (t17, (t18, t19, t19), (t18, t1a, t1a)), (t17, (t1b, t1c, t1c), (t1b, t1d, t1d))), (t16, (t1e, (t1f, t1g, t1g), (t1f, t1h, t1h)), (t1e, (t1i, t1j, t1j), (t1i, t1k, t1k)))), (t15, (t1l, (t1m, (t1n, t1o, t1o), (t1n, t1p, t1p)), (t1m, (t1q, t1r, t1r), (t1q, t1s, t1s))), (t1l, (t1t, (t1u, t1v, t1v), (t1u, t1w, t1w)), (t1t, (t1x, t1y, t1y), (t1x, t1z, t1z))))), (t14, (t1A, (t1B, (t1C, (t1D, t1E, t1E), (t1D, t1F, t1F)), (t1C, (t1G, t1H, t1H), (t1G, t1I, t1I))), (t1B, (t1J, (t1K, t1L, t1L), (t1K, t1M, t1M)), (t1J, (t1N, t1O, t1O), (t1N, t1P, t1P)))), (t1A, (t1Q, (t1R, (t1S, t1T, t1T), (t1S, t1U, t1U)), (t1R, (t1V, t1W, t1W), (t1V, t1X, t1X))), (t1Q, (t1Y, (t1Z, t20, t20), (t1Z, t21, t21)), (t1Y, (t22, t23, t23), (t22, t24, t24))))))), (t25, (t28, (t29, (t2a, (t2b, (t2c, (t2d, t2e, t2e), (t2d, t2f, t2f)), (t2c, (t2g, t2h, t2h), (t2g, t2i, t2i))), (t2b, (t2j, (t2k, t2l, t2l), (t2k, t2m, t2m)), (t2j, (t2n, t2o, t2o), (t2n, t2p, t2p)))), (t2a, (t2q, (t2r, (t2s, t2t, t2t), (t2s, t2u, t2u)), (t2r, (t2v, t2w, t2w), (t2v, t2x, t2x))), (t2q, (t2y, (t2z, t2A, t2A), (t2z, t2B, t2B)), (t2y, (t2C, t2D, t2D), (t2C, t2E, t2E))))), (t29, (t2F, (t2G, (t2H, (t2I, t2J, t2J), (t2I, t2K, t2K)), (t2H, (t2L, t2M, t2M), (t2L, t2N, t2N))), (t2G, (t2O, (t2P, t2Q, t2Q), (t2P, t2R, t2R)), (t2O, (t2S, t2T, t2T), (t2S, t2U, t2U)))), (t2F, (t2V, (t2W, (t2X, t2Y, t2Y), (t2X, t2Z, t2Z)), (t2W, (t30, t31, t31), (t30, t32, t32))), (t2V, (t33, (t34, t35, t35), (t34, t36, t36)), (t33, (t37, t38, t38), (t37, t39, t39)))))), (t28, (t3a, (t3b, (t3c, (t3d, (t3e, t3f, t3f), (t3e, t3g, t3g)), (t3d, (t3h, t3i, t3i), (t3h, t3j, t3j))), (t3c, (t3k, (t3l, t3m, t3m), (t3l, t3n, t3n)), (t3k, (t3o, t3p, t3p), (t3o, t3q, t3q)))), (t3b, (t3r, (t3s, (t3t, t3u, t3u), (t3t, t3v, t3v)), (t3s, (t3w, t3x, t3x), (t3w, t3y, t3y))), (t3r, (t3z, (t3A, t3B, t3B), (t3A, t3C, t3C)), (t3z, (t3D, t3E, t3E), (t3D, t3F, t3F))))), (t3a, (t3G, (t3H, (t3I, (t3J, t3K, t3K), (t3J, t3L, t3L)), (t3I, (t3M, t3N, t3N), (t3M, t3O, t3O))), (t3H, (t3P, (t3Q, t3R, t3R), (t3Q, t3S, t3S)), (t3P, (t3T, t3U, t3U), (t3T, t3V, t3V)))), (t3G, (t3W, (t3X, (t3Y, t3Z, t3Z), (t3Y, t40, t40)), (t3X, (t41, t42, t42), (t41, t43, t43))), (t3W, (t44, (t45, t46, t46), (t45, t47, t47)), (t44, (t48, t49, t49), (t48, t4a, t4a)))))))) -> a ;;
+1 g_rec2 _:_ _forall_ [a b c d e f g] => g -> b -> (g, e, d) -> (a, (f, c, c), (f, e, e)) -> a ;;
+1 g_rec3 _:_ _forall_ [a b c d e f g h i j k l] => l -> b -> (l, g, f) -> (a, (i, (d, e, e), (d, c, c)), (i, (j, k, k), (j, h, h))) -> a ;;
+1 g_rec4 _:_ _forall_ [a b c d e f g h i j k l m n o p q r s t] => t -> b -> (t, k, j) -> (a, (l, (c, (d, e, e), (d, f, f)), (c, (g, h, h), (g, i, i))), (l, (m, (n, o, o), (n, p, p)), (m, (q, r, r), (q, s, s)))) -> a ;;
+1 g_rec5 _:_ _forall_ [a b c d e f g h i j k l m n o p q r s t u v w x y z tq tr ts tt tu tv tw tx ty tz] => tz -> b -> (tz, s, r) -> (a, (t, (c, (d, (e, f, f), (e, g, g)), (d, (h, i, i), (h, j, j))), (c, (k, (l, m, m), (l, n, n)), (k, (o, p, p), (o, q, q)))), (t, (u, (v, (w, x, x), (w, y, y)), (v, (z, tq, tq), (z, tr, tr))), (u, (ts, (tt, tu, tu), (tt, tv, tv)), (ts, (tw, tx, tx), (tw, ty, ty))))) -> a ;;
+1 g_rec6 _:_ _forall_ [a b c d e f g h i j k l m n o p q r s t u v w x y z tq tr ts tt tu tv tw tx ty tz tA tB tC tD tE tF tG tH tI tJ tK tL tM tN tO tP tQ tR tS tT tU tV tW tX tY tZ t10 t11 t12 t13 t14 t15] => t15 -> b -> (t15, ty, tx) -> (a, (tz, (c, (d, (e, (f, g, g), (f, h, h)), (e, (i, j, j), (i, k, k))), (d, (l, (m, n, n), (m, o, o)), (l, (p, q, q), (p, r, r)))), (c, (s, (t, (u, v, v), (u, w, w)), (t, (x, y, y), (x, z, z))), (s, (tq, (tr, ts, ts), (tr, tt, tt)), (tq, (tu, tv, tv), (tu, tw, tw))))), (tz, (tA, (tB, (tC, (tD, tE, tE), (tD, tF, tF)), (tC, (tG, tH, tH), (tG, tI, tI))), (tB, (tJ, (tK, tL, tL), (tK, tM, tM)), (tJ, (tN, tO, tO), (tN, tP, tP)))), (tA, (tQ, (tR, (tS, tT, tT), (tS, tU, tU)), (tR, (tV, tW, tW), (tV, tX, tX))), (tQ, (tY, (tZ, t10, t10), (tZ, t11, t11)), (tY, (t12, t13, t13), (t12, t14, t14)))))) -> a ;;
+1 g_rec7 _:_ _forall_ [a b c d e f g h i j k l m n o p q r s t u v w x y z tq tr ts tt tu tv tw tx ty tz tA tB tC tD tE tF tG tH tI tJ tK tL tM tN tO tP tQ tR tS tT tU tV tW tX tY tZ t10 t11 t12 t13 t14 t15 t16 t17 t18 t19 t1a t1b t1c t1d t1e t1f t1g t1h t1i t1j t1k t1l t1m t1n t1o t1p t1q t1r t1s t1t t1u t1v t1w t1x t1y t1z t1A t1B t1C t1D t1E t1F t1G t1H t1I t1J t1K t1L t1M t1N t1O t1P t1Q t1R t1S t1T t1U t1V t1W t1X t1Y t1Z t20 t21 t22 t23 t24 t25 t26 t27] => t27 -> b -> (t27, t14, t13) -> (a, (t15, (c, (d, (e, (f, (g, h, h), (g, i, i)), (f, (j, k, k), (j, l, l))), (e, (m, (n, o, o), (n, p, p)), (m, (q, r, r), (q, s, s)))), (d, (t, (u, (v, w, w), (v, x, x)), (u, (y, z, z), (y, tq, tq))), (t, (tr, (ts, tt, tt), (ts, tu, tu)), (tr, (tv, tw, tw), (tv, tx, tx))))), (c, (ty, (tz, (tA, (tB, tC, tC), (tB, tD, tD)), (tA, (tE, tF, tF), (tE, tG, tG))), (tz, (tH, (tI, tJ, tJ), (tI, tK, tK)), (tH, (tL, tM, tM), (tL, tN, tN)))), (ty, (tO, (tP, (tQ, tR, tR), (tQ, tS, tS)), (tP, (tT, tU, tU), (tT, tV, tV))), (tO, (tW, (tX, tY, tY), (tX, tZ, tZ)), (tW, (t10, t11, t11), (t10, t12, t12)))))), (t15, (t16, (t17, (t18, (t19, (t1a, t1b, t1b), (t1a, t1c, t1c)), (t19, (t1d, t1e, t1e), (t1d, t1f, t1f))), (t18, (t1g, (t1h, t1i, t1i), (t1h, t1j, t1j)), (t1g, (t1k, t1l, t1l), (t1k, t1m, t1m)))), (t17, (t1n, (t1o, (t1p, t1q, t1q), (t1p, t1r, t1r)), (t1o, (t1s, t1t, t1t), (t1s, t1u, t1u))), (t1n, (t1v, (t1w, t1x, t1x), (t1w, t1y, t1y)), (t1v, (t1z, t1A, t1A), (t1z, t1B, t1B))))), (t16, (t1C, (t1D, (t1E, (t1F, t1G, t1G), (t1F, t1H, t1H)), (t1E, (t1I, t1J, t1J), (t1I, t1K, t1K))), (t1D, (t1L, (t1M, t1N, t1N), (t1M, t1O, t1O)), (t1L, (t1P, t1Q, t1Q), (t1P, t1R, t1R)))), (t1C, (t1S, (t1T, (t1U, t1V, t1V), (t1U, t1W, t1W)), (t1T, (t1X, t1Y, t1Y), (t1X, t1Z, t1Z))), (t1S, (t20, (t21, t22, t22), (t21, t23, t23)), (t20, (t24, t25, t25), (t24, t26, t26))))))) -> a ;;
+1 g_rec8 _:_ _forall_ [a b c d e f g h i j k l m n o p q r s t u v w x y z tq tr ts tt tu tv tw tx ty tz tA tB tC tD tE tF tG tH tI tJ tK tL tM tN tO tP tQ tR tS tT tU tV tW tX tY tZ t10 t11 t12 t13 t14 t15 t16 t17 t18 t19 t1a t1b t1c t1d t1e t1f t1g t1h t1i t1j t1k t1l t1m t1n t1o t1p t1q t1r t1s t1t t1u t1v t1w t1x t1y t1z t1A t1B t1C t1D t1E t1F t1G t1H t1I t1J t1K t1L t1M t1N t1O t1P t1Q t1R t1S t1T t1U t1V t1W t1X t1Y t1Z t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t2a t2b t2c t2d t2e t2f t2g t2h t2i t2j t2k t2l t2m t2n t2o t2p t2q t2r t2s t2t t2u t2v t2w t2x t2y t2z t2A t2B t2C t2D t2E t2F t2G t2H t2I t2J t2K t2L t2M t2N t2O t2P t2Q t2R t2S t2T t2U t2V t2W t2X t2Y t2Z t30 t31 t32 t33 t34 t35 t36 t37 t38 t39 t3a t3b t3c t3d t3e t3f t3g t3h t3i t3j t3k t3l t3m t3n t3o t3p t3q t3r t3s t3t t3u t3v t3w t3x t3y t3z t3A t3B t3C t3D t3E t3F t3G t3H t3I t3J t3K t3L t3M t3N t3O t3P t3Q t3R t3S t3T t3U t3V t3W t3X t3Y t3Z t40 t41 t42 t43 t44 t45 t46 t47 t48 t49 t4a t4b] => t4b -> b -> (t4b, t26, t25) -> (a, (t27, (c, (d, (e, (f, (g, (h, i, i), (h, j, j)), (g, (k, l, l), (k, m, m))), (f, (n, (o, p, p), (o, q, q)), (n, (r, s, s), (r, t, t)))), (e, (u, (v, (w, x, x), (w, y, y)), (v, (z, tq, tq), (z, tr, tr))), (u, (ts, (tt, tu, tu), (tt, tv, tv)), (ts, (tw, tx, tx), (tw, ty, ty))))), (d, (tz, (tA, (tB, (tC, tD, tD), (tC, tE, tE)), (tB, (tF, tG, tG), (tF, tH, tH))), (tA, (tI, (tJ, tK, tK), (tJ, tL, tL)), (tI, (tM, tN, tN), (tM, tO, tO)))), (tz, (tP, (tQ, (tR, tS, tS), (tR, tT, tT)), (tQ, (tU, tV, tV), (tU, tW, tW))), (tP, (tX, (tY, tZ, tZ), (tY, t10, t10)), (tX, (t11, t12, t12), (t11, t13, t13)))))), (c, (t14, (t15, (t16, (t17, (t18, t19, t19), (t18, t1a, t1a)), (t17, (t1b, t1c, t1c), (t1b, t1d, t1d))), (t16, (t1e, (t1f, t1g, t1g), (t1f, t1h, t1h)), (t1e, (t1i, t1j, t1j), (t1i, t1k, t1k)))), (t15, (t1l, (t1m, (t1n, t1o, t1o), (t1n, t1p, t1p)), (t1m, (t1q, t1r, t1r), (t1q, t1s, t1s))), (t1l, (t1t, (t1u, t1v, t1v), (t1u, t1w, t1w)), (t1t, (t1x, t1y, t1y), (t1x, t1z, t1z))))), (t14, (t1A, (t1B, (t1C, (t1D, t1E, t1E), (t1D, t1F, t1F)), (t1C, (t1G, t1H, t1H), (t1G, t1I, t1I))), (t1B, (t1J, (t1K, t1L, t1L), (t1K, t1M, t1M)), (t1J, (t1N, t1O, t1O), (t1N, t1P, t1P)))), (t1A, (t1Q, (t1R, (t1S, t1T, t1T), (t1S, t1U, t1U)), (t1R, (t1V, t1W, t1W), (t1V, t1X, t1X))), (t1Q, (t1Y, (t1Z, t20, t20), (t1Z, t21, t21)), (t1Y, (t22, t23, t23), (t22, t24, t24))))))), (t27, (t28, (t29, (t2a, (t2b, (t2c, (t2d, t2e, t2e), (t2d, t2f, t2f)), (t2c, (t2g, t2h, t2h), (t2g, t2i, t2i))), (t2b, (t2j, (t2k, t2l, t2l), (t2k, t2m, t2m)), (t2j, (t2n, t2o, t2o), (t2n, t2p, t2p)))), (t2a, (t2q, (t2r, (t2s, t2t, t2t), (t2s, t2u, t2u)), (t2r, (t2v, t2w, t2w), (t2v, t2x, t2x))), (t2q, (t2y, (t2z, t2A, t2A), (t2z, t2B, t2B)), (t2y, (t2C, t2D, t2D), (t2C, t2E, t2E))))), (t29, (t2F, (t2G, (t2H, (t2I, t2J, t2J), (t2I, t2K, t2K)), (t2H, (t2L, t2M, t2M), (t2L, t2N, t2N))), (t2G, (t2O, (t2P, t2Q, t2Q), (t2P, t2R, t2R)), (t2O, (t2S, t2T, t2T), (t2S, t2U, t2U)))), (t2F, (t2V, (t2W, (t2X, t2Y, t2Y), (t2X, t2Z, t2Z)), (t2W, (t30, t31, t31), (t30, t32, t32))), (t2V, (t33, (t34, t35, t35), (t34, t36, t36)), (t33, (t37, t38, t38), (t37, t39, t39)))))), (t28, (t3a, (t3b, (t3c, (t3d, (t3e, t3f, t3f), (t3e, t3g, t3g)), (t3d, (t3h, t3i, t3i), (t3h, t3j, t3j))), (t3c, (t3k, (t3l, t3m, t3m), (t3l, t3n, t3n)), (t3k, (t3o, t3p, t3p), (t3o, t3q, t3q)))), (t3b, (t3r, (t3s, (t3t, t3u, t3u), (t3t, t3v, t3v)), (t3s, (t3w, t3x, t3x), (t3w, t3y, t3y))), (t3r, (t3z, (t3A, t3B, t3B), (t3A, t3C, t3C)), (t3z, (t3D, t3E, t3E), (t3D, t3F, t3F))))), (t3a, (t3G, (t3H, (t3I, (t3J, t3K, t3K), (t3J, t3L, t3L)), (t3I, (t3M, t3N, t3N), (t3M, t3O, t3O))), (t3H, (t3P, (t3Q, t3R, t3R), (t3Q, t3S, t3S)), (t3P, (t3T, t3U, t3U), (t3T, t3V, t3V)))), (t3G, (t3W, (t3X, (t3Y, t3Z, t3Z), (t3Y, t40, t40)), (t3X, (t41, t42, t42), (t41, t43, t43))), (t3W, (t44, (t45, t46, t46), (t45, t47, t47)), (t44, (t48, t49, t49), (t48, t4a, t4a)))))))) -> a ;;
1 head _:_ _forall_ [a] => [a] -> a ;;
1 one _:_ _forall_ [a] => a ;;
1 s_1_0 _:_ _forall_ [a] => a -> a ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d12 1 $d13 1 $d26 1 $d28 1 $d39 1 $d41 1 $d6 1 $d7 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mmax 1 $mmin 1 Eq 1 Ord 1 Ordering 1;
-PrelNum 1 :: $d17 1 $d18 1;
+PrelBase 1 :: $dEq0 1 $dEqBool0 1 $dEqInt0 1 $dEqOrdering0 1 $dOrd0 1 $dOrdBool0 1 $dOrdInt0 1 $dOrdOrdering0 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mmax 1 $mmin 1 Eq 1 Ord 1 Ordering 1;
+PrelNum 1 :: $dEqDouble0 1 $dOrdDouble0 1;
_exports_
ShouldSucceed a b;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d11 1 $d12 1 $d13 1 $d15 1 $d2 1 $d20 1 $d21 1 $d24 1 $d25 1 $d26 1 $d27 1 $d28 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d40 1 $d41 1 $d42 1 $d43 1 $d5 1 $d6 1 $d7 1 $d8 1 $d9 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $menumFromThenTo 1 $menumFromTo 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 Enum 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
+PrelBase 1 :: $dEnum0 1 $dEnumBool0 1 $dEnumChar0 1 $dEnumInt0 1 $dEnumOrdering0 1 $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dEvalOrdering0 1 $dNumInt0 1 $dOrd0 1 $dOrd1 1 $dOrdBool0 1 $dOrdChar0 1 $dOrdInt0 1 $dOrdOrdering0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $dShowOrdering0 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $menumFromThenTo 1 $menumFromTo 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 Enum 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
PrelList 1 :: length 1;
-PrelNum 1 :: $d1 1 $d10 1 $d15 1 $d16 1 $d17 1 $d18 1 $d2 1 $d29 1 $d30 1 $d31 1 $d32 1 $d33 1 $d34 1 $d35 1 $d36 1 $d37 1 $d38 1 $d39 1 $d5 1 $d6 1 $d7 1 $d8 1 $mdiv 1 $mdivMod 1 $mmod 1 $mquot 1 $mrem 1 Integral 1 Ratio 1 Rational 1 Real 1;
-PrelTup 1 :: $d13 1 $d4 1 $d49 1 $d9 1;
+PrelNum 1 :: $dEnumDouble0 1 $dEnumInteger0 1 $dEnumRatio0 1 $dEqDouble0 1 $dEqInteger0 1 $dEqRatio0 1 $dEvalRatio0 1 $dIntegralInt0 1 $dIntegralInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dNumRatio0 1 $dOrdDouble0 1 $dOrdInteger0 1 $dOrdRatio0 1 $dRealDouble0 1 $dRealInt0 1 $dRealInteger0 1 $dRealRatio0 1 $dShowDouble0 1 $dShowInteger0 1 $dShowRatio0 1 $mdiv 1 $mdivMod 1 $mmod 1 $mquot 1 $mrem 1 Integral 1 Ratio 1 Rational 1 Real 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dOrd0 1 $dShow3 1;
_exports_
ShouldSucceed init_last merge sort;
_declarations_
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d12 1 $d13 1 $d2 1 $d20 1 $d21 1 $d26 1 $d28 1 $d29 1 $d31 1 $d33 1 $d36 1 $d37 1 $d38 1 $d39 1 $d41 1 $d6 1 $d7 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mmax 1 $mmin 1 Eq 1 Eval 1 Ord 1 Ordering 1;
-PrelNum 1 :: $d17 1 $d18 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalOrdering0 1 $dOrd0 1 $dOrd1 1 $dOrdBool0 1 $dOrdInt0 1 $dOrdOrdering0 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $mmax 1 $mmin 1 Eq 1 Eval 1 Ord 1 Ordering 1;
+PrelNum 1 :: $dEqDouble0 1 $dOrdDouble0 1;
_exports_
ShouldSucceed e0 e1 e2 q Empty(Empty);
_instances_
-instance _forall_ [a :: (* -> *)] => {PrelBase.Eval (Empty a)} = $d1;
+instance _forall_ [a :: (* -> *)] => {PrelBase.Eval (Empty a)} = $dEvalEmpty0;
_declarations_
-1 $d1 _:_ _forall_ [a :: (* -> *)] => {PrelBase.Eval (Empty a)} ;;
+1 $dEvalEmpty0 _:_ _forall_ [a :: (* -> *)] => {PrelBase.Eval (Empty a)} ;;
1 data Empty q :: (* -> *) = Empty (_forall_ [a] {PrelBase.Ord a} => q a) ;
1 e0 _:_ Empty PrelBase.[] ;;
1 e1 _:_ Empty PrelBase.[] ;;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d12 1 $d13 1 $d15 1 $d18 1 $d2 1 $d20 1 $d21 1 $d26 1 $d27 1 $d28 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d40 1 $d41 1 $d42 1 $d43 1 $d6 1 $d7 1 $d8 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $m>> 1 $mcompare 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 && 1 . 1 not 1 showList__ 1 showParen 1 showSpace 1 showString 1 Eq 1 Eval 1 Monad 1 Num 1 Ord 1 Ordering 1 Show 1 ShowS 1 String 1;
-PrelNum 1 :: $d10 1 $d16 1 $d17 1 $d18 1 $d29 1 $d33 1 $d34 1 $d35 1;
-PrelTup 1 :: $d13 1 $d4 1 $d49 1 $d9 1;
+PrelBase 1 :: $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dEvalOrdering0 1 $dMonad0 1 $dNumInt0 1 $dOrd0 1 $dOrd1 1 $dOrdBool0 1 $dOrdChar0 1 $dOrdInt0 1 $dOrdOrdering0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $dShowOrdering0 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $m>> 1 $mcompare 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 && 1 . 1 not 1 showList__ 1 showParen 1 showSpace 1 showString 1 Eq 1 Eval 1 Monad 1 Num 1 Ord 1 Ordering 1 Show 1 ShowS 1 String 1;
+PrelNum 1 :: $dEqDouble0 1 $dEqInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dOrdDouble0 1 $dOrdInteger0 1 $dShowDouble0 1 $dShowInteger0 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dOrd0 1 $dShow3 1;
_exports_
ShouldSucceed bindState foo unState unitState St State(State) TS(TS vs);
_instances_
-instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Monad (State a)} = $d1;
-instance {PrelBase.Eq TS} = $d2;
-instance {PrelBase.Eval TS} = $d3;
-instance _forall_ [a b] => {PrelBase.Eval (State a b)} = $d4;
-instance {PrelBase.Show TS} = $d5;
+instance {PrelBase.Eq TS} = $dEqTS0;
+instance _forall_ [a b] => {PrelBase.Eval (State a b)} = $dEvalState0;
+instance {PrelBase.Eval TS} = $dEvalTS0;
+instance _forall_ [a] {PrelBase.Eq a} => {PrelBase.Monad (State a)} = $dMonadState0;
+instance {PrelBase.Show TS} = $dShowTS0;
_declarations_
-1 $d1 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Monad (State a)} ;;
-1 $d2 _:_ {PrelBase.Eq TS} ;;
-1 $d3 _:_ {PrelBase.Eval TS} ;;
-1 $d4 _:_ _forall_ [a b] => {PrelBase.Eval (State a b)} ;;
-1 $d5 _:_ {PrelBase.Show TS} ;;
+1 $dEqTS0 _:_ {PrelBase.Eq TS} ;;
+1 $dEvalState0 _:_ _forall_ [a b] => {PrelBase.Eval (State a b)} ;;
+1 $dEvalTS0 _:_ {PrelBase.Eval TS} ;;
+1 $dMonadState0 _:_ _forall_ [a] {PrelBase.Eq a} => {PrelBase.Monad (State a)} ;;
+1 $dShowTS0 _:_ {PrelBase.Show TS} ;;
1 bindState _:_ _forall_ [a b c] => State a b -> (b -> State a c) -> State a c ;;
1 data State c a = State (c -> (a, c)) ;
1 data TS = TS {vs :: PrelBase.Int} ;
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d11 1 $d12 1 $d13 1 $d15 1 $d2 1 $d20 1 $d21 1 $d24 1 $d25 1 $d26 1 $d27 1 $d28 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d40 1 $d41 1 $d42 1 $d43 1 $d5 1 $d6 1 $d7 1 $d8 1 $d9 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $menumFromThenTo 1 $menumFromTo 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 Enum 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
-PrelNum 1 :: $d1 1 $d10 1 $d12 1 $d14 1 $d15 1 $d16 1 $d17 1 $d18 1 $d2 1 $d29 1 $d3 1 $d30 1 $d31 1 $d32 1 $d33 1 $d34 1 $d35 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d5 1 $d6 1 $d7 1 $d8 1 $mceiling 1 $mdiv 1 $mdivMod 1 $mfloor 1 $mmod 1 $mquot 1 $mrecip 1 $mrem 1 $mround 1 $mtruncate 1 Fractional 1 Integral 1 Ratio 1 Rational 1 Real 1 RealFrac 1;
-PrelTup 1 :: $d13 1 $d4 1 $d49 1 $d9 1;
+PrelBase 1 :: $dEnum0 1 $dEnumBool0 1 $dEnumChar0 1 $dEnumInt0 1 $dEnumOrdering0 1 $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dEvalOrdering0 1 $dNumInt0 1 $dOrd0 1 $dOrd1 1 $dOrdBool0 1 $dOrdChar0 1 $dOrdInt0 1 $dOrdOrdering0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $dShowOrdering0 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $menumFromThenTo 1 $menumFromTo 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 Enum 1 Eq 1 Eval 1 Num 1 Ord 1 Ordering 1 Show 1 String 1;
+PrelNum 1 :: $dEnumDouble0 1 $dEnumInteger0 1 $dEnumRatio0 1 $dEqDouble0 1 $dEqInteger0 1 $dEqRatio0 1 $dEvalRatio0 1 $dFractionalDouble0 1 $dFractionalRatio0 1 $dIntegralInt0 1 $dIntegralInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dNumRatio0 1 $dOrdDouble0 1 $dOrdInteger0 1 $dOrdRatio0 1 $dRealDouble0 1 $dRealFracDouble0 1 $dRealFracRatio0 1 $dRealInt0 1 $dRealInteger0 1 $dRealRatio0 1 $dShowDouble0 1 $dShowInteger0 1 $dShowRatio0 1 $mceiling 1 $mdiv 1 $mdivMod 1 $mfloor 1 $mmod 1 $mquot 1 $mrecip 1 $mrem 1 $mround 1 $mtruncate 1 Fractional 1 Integral 1 Ratio 1 Rational 1 Real 1 RealFrac 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dOrd0 1 $dShow3 1;
_exports_
ShouldSucceed foo;
_declarations_
+
+NOTE: Simplifier still going after 4 iterations; bailing out.
ghc: module version changed to 1; reason: no old .hi file
-_interface_ ShouldSucceed 1
+_interface_ ShouldSucceed 1 302
_instance_modules_
IO PrelAddr PrelArr PrelBounded PrelCCall PrelForeign PrelNum
_usages_
-PrelBase 1 :: $d1 1 $d10 1 $d11 1 $d12 1 $d13 1 $d15 1 $d19 1 $d2 1 $d20 1 $d21 1 $d24 1 $d25 1 $d26 1 $d27 1 $d28 1 $d29 1 $d3 1 $d30 1 $d31 1 $d33 1 $d34 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d40 1 $d41 1 $d42 1 $d43 1 $d5 1 $d6 1 $d7 1 $d8 1 $d9 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $menumFromThenTo 1 $menumFromTo 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 . 1 showList__ 1 showParen 1 showSpace 1 showString 1 Enum 1 Eq 1 Eval 1 Functor 1 Num 1 Ord 1 Ordering 1 Show 1 ShowS 1 String 1;
+PrelBase 1 :: $dEnum0 1 $dEnumBool0 1 $dEnumChar0 1 $dEnumInt0 1 $dEnumOrdering0 1 $dEq0 1 $dEq1 1 $dEqBool0 1 $dEqChar0 1 $dEqInt0 1 $dEqOrdering0 1 $dEval0 1 $dEval1 1 $dEval2 1 $dEvalBool0 1 $dEvalChar0 1 $dEvalDouble0 1 $dEvalInt0 1 $dEvalInteger0 1 $dEvalOrdering0 1 $dFunctor0 1 $dNumInt0 1 $dOrd0 1 $dOrd1 1 $dOrdBool0 1 $dOrdChar0 1 $dOrdInt0 1 $dOrdOrdering0 1 $dShow0 1 $dShow1 1 $dShow2 1 $dShowBool0 1 $dShowChar0 1 $dShowInt0 1 $dShowOrdering0 1 $m- 1 $m/= 1 $m< 1 $m<= 1 $m> 1 $m>= 1 $mcompare 1 $menumFromThenTo 1 $menumFromTo 1 $mfromInt 1 $mmax 1 $mmin 1 $mshowList 1 . 1 showList__ 1 showParen 1 showSpace 1 showString 1 Enum 1 Eq 1 Eval 1 Functor 1 Num 1 Ord 1 Ordering 1 Show 1 ShowS 1 String 1;
PrelIO 1 :: print 1;
-PrelIOBase 1 :: $d2 1 $d4 1 $d7 1 IO 1;
+PrelIOBase 1 :: $dEvalIO0 1 $dFunctorIO0 1 $dShowIO0 1 IO 1;
PrelList 1 :: drop 1;
-PrelNum 1 :: $d1 1 $d10 1 $d14 1 $d15 1 $d16 1 $d17 1 $d18 1 $d2 1 $d29 1 $d30 1 $d31 1 $d32 1 $d33 1 $d34 1 $d35 1 $d36 1 $d37 1 $d38 1 $d39 1 $d4 1 $d5 1 $d6 1 $d7 1 $d8 1 $mdiv 1 $mdivMod 1 $mmod 1 $mquot 1 $mrecip 1 $mrem 1 Fractional 1 Integral 1 Ratio 1 Rational 1 Real 1;
-PrelTup 1 :: $d13 1 $d4 1 $d49 1 $d9 1;
+PrelNum 1 :: $dEnumDouble0 1 $dEnumInteger0 1 $dEnumRatio0 1 $dEqDouble0 1 $dEqInteger0 1 $dEqRatio0 1 $dEvalRatio0 1 $dFractionalDouble0 1 $dFractionalRatio0 1 $dIntegralInt0 1 $dIntegralInteger0 1 $dNumDouble0 1 $dNumInteger0 1 $dNumRatio0 1 $dOrdDouble0 1 $dOrdInteger0 1 $dOrdRatio0 1 $dRealDouble0 1 $dRealInt0 1 $dRealInteger0 1 $dRealRatio0 1 $dShowDouble0 1 $dShowInteger0 1 $dShowRatio0 1 $mdiv 1 $mdivMod 1 $mmod 1 $mquot 1 $mrecip 1 $mrem 1 Fractional 1 Integral 1 Ratio 1 Rational 1 Real 1;
+PrelTup 1 :: $dEq0 1 $dEval0 1 $dOrd0 1 $dShow3 1;
_exports_
ShouldSucceed action_0 action_1 action_2 action_3 action_4 action_5 action_6 happyAccept happyError happyFail happyGoto happyMonadReduce happyNewToken happyParse happyReduce happyReduce_1 happyReduce_2 happyReduce_3 happyReturn happyShift happySpecReduce_0 happySpecReduce_1 happySpecReduce_2 happySpecReduce_3 happyThen main myparser notHappyAtAll HappyAbsSyn(HappyTerminal HappyErrorToken HappyAbsSyn1 HappyAbsSyn2 HappyAbsSyn3) HappyState(HappyState) Token(TokenInt TokenVar TokenEq);
_instances_
-instance _forall_ [a b] => {PrelBase.Eval (HappyState a b)} = $d1;
-instance {PrelBase.Eval Token} = $d2;
-instance _forall_ [a b c] => {PrelBase.Eval (HappyAbsSyn a b c)} = $d3;
-instance {PrelBase.Show Token} = $d4;
+instance _forall_ [a b c] => {PrelBase.Eval (HappyAbsSyn a b c)} = $dEvalHappyAbsSyn0;
+instance _forall_ [a b] => {PrelBase.Eval (HappyState a b)} = $dEvalHappyState0;
+instance {PrelBase.Eval Token} = $dEvalToken0;
+instance {PrelBase.Show Token} = $dShowToken0;
_declarations_
-1 $d1 _:_ _forall_ [a b] => {PrelBase.Eval (HappyState a b)} ;;
-1 $d2 _:_ {PrelBase.Eval Token} ;;
-1 $d3 _:_ _forall_ [a b c] => {PrelBase.Eval (HappyAbsSyn a b c)} ;;
-1 $d4 _:_ {PrelBase.Show Token} ;;
+1 $dEvalHappyAbsSyn0 _:_ _forall_ [a b c] => {PrelBase.Eval (HappyAbsSyn a b c)} ;;
+1 $dEvalHappyState0 _:_ _forall_ [a b] => {PrelBase.Eval (HappyState a b)} ;;
+1 $dEvalToken0 _:_ {PrelBase.Eval Token} ;;
+1 $dShowToken0 _:_ {PrelBase.Show Token} ;;
1 action_0 _:_ _forall_ [a b] {PrelBase.Num a} => a -> PrelBase.Int -> Token -> HappyState Token ([HappyAbsSyn (b -> PrelBase.Double) [(PrelBase.String, b -> PrelBase.Int)] (b -> PrelBase.Int)] -> [Token] -> b -> PrelBase.Double) -> [HappyState Token ([HappyAbsSyn (b -> PrelBase.Double) [(PrelBase.String, b -> PrelBase.Int)] (b -> PrelBase.Int)] -> [Token] -> b -> PrelBase.Double)] -> [HappyAbsSyn (b -> PrelBase.Double) [(PrelBase.String, b -> PrelBase.Int)] (b -> PrelBase.Int)] -> [Token] -> b -> PrelBase.Double ;;
1 action_1 _:_ _forall_ [a b c d e] {PrelBase.Num a} => a -> PrelBase.Int -> b -> HappyState b ([HappyAbsSyn e c d] -> [Token] -> e) -> [HappyState b ([HappyAbsSyn e c d] -> [Token] -> e)] -> [HappyAbsSyn e c d] -> [Token] -> e ;;
1 action_2 _:_ _forall_ [a b c d e f g h] => a -> PrelBase.Int -> b -> c -> [HappyState b ([HappyAbsSyn (d -> PrelBase.Double) [(e, d -> f)] g] -> h)] -> [HappyAbsSyn (d -> PrelBase.Double) [(e, d -> f)] g] -> h ;;
--- /dev/null
+module ShouldSucceed where
+
+--!!! monomorphism restriction and defaulting
+
+x = 3
+
+main = print $ 6 / x
+
+{-
+Hugs 1.4 complains: ERROR "Strange.hs" (line 3): Int is not an
+instance of class "Fractional". GHC however compiles the program.
+Substitute for x and Hugs is happy. What's going on?
+
+I haven't studied the numeric classes much so perhaps I'm missing
+something obvious here. (I see that the bugs page alludes to some 1.4
+features not in Hugs leading to type errors. If this is it, maybe you
+should give it as an example?)
+
+ Bjarte
+
+------- Message 2
+
+Date: Wed, 25 Feb 98 14:01:35 -0500
+From: "John C. Peterson" <peterson-john@CS.YALE.EDU>
+To: bjartem@idi.ntnu.no
+cc: hugs-bugs@CS.YALE.EDU
+Subject: Re: Fractional and Int?
+
+This is a known hugs bug. x should be monomorphic, allowing the usage
+in main to constrain it to Fractional. Instead, it is generalized and
+then defaulted to Int without being influenced by main. So ghc is
+right and hugs is wrong on this one. I expect this will be fixed
+eventually.
+
+ John
+-}
A type signature is more polymorphic than the inferred type
Can't for-all the type variable(s) `v'
in the type `[Edge v]'
- When checking the type signature for `reversed_edges'
- In an equation for function `stronglyConnComp':
- stronglyConnComp es vs
- = snd (span_tree (new_range reversed_edges)
- ([], ([]))
- (snd (dfs (... ...) (..., ...) vs)))
- where
- span_tree r (vs, ns) [] = (vs, (ns))
- span_tree r (vs, ns) (x : xs)
- | x elem vs = span_tree r (vs, (ns)) xs
- | otherwise = span_tree r (vs', ((x : ns') : ns)) xs
- where
- (vs', ns') = dfs r (x : vs, ([])) (r x)
- new_range [] w = []
- new_range ((x, y) : xys) w
- = if x == w then
- (y : (new_range xys w))
- else
- (new_range xys w)
- swap (x, y) = (y, (x))
- reversed_edges :: _forall_ [v] (PrelBase.Eq v) => [Edge v]
- reversed_edges = map swap es
+ When checking the type signature for `reversed_edges'
+ In an equation for function `stronglyConnComp':
+ stronglyConnComp es vs
+ = snd (span_tree (new_range reversed_edges)
+ ([], ([]))
+ (snd (dfs (new_range es) ([], ([])) vs)))
+ where
+ span_tree r (vs, ns) [] = (vs, (ns))
+ span_tree r (vs, ns) (x : xs)
+ | x elem vs = span_tree r (vs, (ns)) xs
+ | otherwise = span_tree r (vs', ((x : ns') : ns)) xs
+ where
+ (vs', ns') = dfs r (x : vs, ([])) (r x)
+ new_range [] w = []
+ new_range ((x, y) : xys) w
+ = if x == w then
+ (y : (new_range xys w))
+ else
+ (new_range xys w)
+ swap (x, y) = (y, (x))
+ reversed_edges :: _forall_ [v] (PrelBase.Eq v) => [Edge v]
+ reversed_edges = map swap es
Compilation had errors
tcfail001.hs:9:
- Couldn't match the type `an0 -> an1' against `[a]'
- Expected: an0 -> an1
- Inferred: [a]
- In an equation for function `op': op [] = []
- In the definition for method `op'
+ Couldn't match the type `[a]' against `aqd -> aqe'
+ Expected: [a]
+ Inferred: aqd -> aqe
+ In an equation for function `op': op [] = []
+ In the definition for method `op'
Compilation had errors
tcfail002.hs:4:
- Occurs check: cannot construct the infinite type: amA = [amA]
- Expected: [amA]
- Inferred: amA
- In an equation for function `c': c z = z
+ Occurs check: cannot construct the infinite type: apP = [apP]
+ Expected: apP
+ Inferred: [apP]
+ In an equation for function `c': c z = z
Compilation had errors
tcfail003.hs:3:
- No instance for: `Num Char'
- arising from the literal `1', at tcfail003.hs:3
+ No instance for `Num Char'
+ (arising from the literal `1' at tcfail003.hs:3)
Compilation had errors
tcfail004.hs:3:
- Couldn't match the type `(aWn, aWp, aWr)' against `(aWi, aWl)'
- Expected: (aWn, aWp, aWr)
- Inferred: (aWh, aWk)
- In a pattern binding: (f, g) = (1, 2, 3)
+ Couldn't match the type `(a12F, a12I)' against `(a12K, a12M, a12O)'
+ Expected: (a12E, a12H)
+ Inferred: (a12K, a12M, a12O)
+ In a pattern binding: (f, g) = (1, 2, 3)
Compilation had errors
tcfail005.hs:3:
- Couldn't match the type `(aVB, aVD)' against `[aVx]'
- Expected: (aVB, aVD)
- Inferred: [aVx]
- In a pattern binding: (h : i) = (1, ('a'))
+ Couldn't match the type `[a11U]' against `(a11Y, a120)'
+ Expected: [a11U]
+ Inferred: (a11Y, a120)
+ In a pattern binding: (h : i) = (1, ('a'))
Compilation had errors
tcfail006.hs:4:
- No instance for: `Num Bool'
- arising from the literal `1', at tcfail006.hs:4
+ No instance for `Num Bool'
+ (arising from the literal `1' at tcfail006.hs:4)
Compilation had errors
tcfail007.hs:4:
- No instance for: `Num Bool'
- arising from the literal `1', at tcfail007.hs:4
+ No instance for `Num Bool'
+ (arising from the literal `1' at tcfail007.hs:4)
Compilation had errors
tcfail008.hs:3:
- Cannot resolve the ambiguous context (Num [aG1])
- `Num [aG1]' arising from the literal `2', at tcfail008.hs:3
+ Ambiguous type variable(s)
+ `aMu'
+ in the constraint `Num [aMu]'
+ arising from the literal `2' at tcfail008.hs:3
tcfail008.hs:3:
- Cannot resolve the ambiguous context (Num aG1)
- `Num aG1' arising from the literal `1', at tcfail008.hs:3
+ Ambiguous type variable(s)
+ `aMu'
+ in the constraint `Num aMu'
+ arising from the literal `1' at tcfail008.hs:3
Compilation had errors
tcfail009.hs:3:
Couldn't match the type `Int' against `Integer'
- Expected: Integer
- Inferred: Int
- In an expression with a type signature: 2 :: Integer
+ Expected: Integer
+ Inferred: Int
+ In an expression with a type signature: 2 :: Integer
Compilation had errors
tcfail010.hs:3:
- Cannot resolve the ambiguous context (Num [aGb])
- `Num [aGb]' arising from the literal `2', at tcfail010.hs:3
+ Ambiguous type variable(s)
+ `aME'
+ in the constraint `Num [aME]'
+ arising from the literal `2' at tcfail010.hs:3
Compilation had errors
tcfail012.hs:3:
- Couldn't match the type `[amk]' against `Bool'
- Expected: [amk]
- Inferred: Bool
- In a pattern binding: True = []
+ Couldn't match the type `Bool' against `[apz]'
+ Expected: Bool
+ Inferred: [apz]
+ In a pattern binding: True = []
Compilation had errors
tcfail013.hs:4:
- Couldn't match the type `[aG8]' against `Bool'
- Expected: Bool
- Inferred: [aG8]
- In an equation for function `f': f True = 2
+ Couldn't match the type `[aMB]' against `Bool'
+ Expected: Bool
+ Inferred: [aMB]
+ In an equation for function `f': f True = 2
Compilation had errors
tcfail014.hs:5:
- Occurs check: cannot construct the infinite type: aGA = aGA -> aGC
- Expected: aGA -> aGC
- Inferred: aGA
- In the first argument of `z', namely `z'
- In an equation for function `h': h z = z z
+ Occurs check: cannot construct the infinite type: aN3 = aN3 -> aN5
+ Expected: aN3
+ Inferred: aN3 -> aN5
+ In the first argument of `z', namely `z'
+ In an equation for function `h': h z = z z
Compilation had errors
tcfail015.hs:7:
- No instance for: `Num Bool'
- arising from the literal `2', at tcfail015.hs:7
+ No instance for `Num Bool'
+ (arising from the literal `2' at tcfail015.hs:7)
Compilation had errors
tcfail016.hs:9:
- Couldn't match the type `Expr aVI' against `AnnExpr aVO'
- Expected: AnnExpr aVO
- Inferred: Expr aVO
- In the first argument of `g', namely `e1'
- In the first argument of `++', namely `(g e1)'
+ Couldn't match the type `AnnExpr a12c' against `Expr a125'
+ Expected: Expr a12c
+ Inferred: AnnExpr a12c
+ In the first argument of `g', namely `e1'
+ In the first argument of `++', namely `(g e1)'
Compilation had errors
tcfail017.hs:11:
- No instance for: `C [a]'
- arising from an instance declaration, at tcfail017.hs:11
- Available context: (C [a])
- From the superclasses of the instance declaration
+ Could not deduce `C [a]'
+ (arising from an instance declaration at tcfail017.hs:11)
+ from the context (B a)
+ Probable cause: missing `C [a]' in instance declaration context
+ or missing instance declaration for `C [a]'
+ When checking the superclasses of an instance declaration
Compilation had errors
tcfail018.hs:5:
- Cannot resolve the ambiguous context (Num [aG4])
- `Num [aG4]' arising from the literal `1', at tcfail018.hs:5
+ Ambiguous type variable(s)
+ `aMx'
+ in the constraint `Num [aMx]'
+ arising from the literal `1' at tcfail018.hs:5
Compilation had errors
tcfail019.hs:19:
- No instance for: `B [a]'
- arising from an instance declaration, at tcfail019.hs:19
- Available context: (B [a], C [a])
- From the superclasses of the instance declaration
+ Could not deduce `C [a]'
+ (arising from an instance declaration at tcfail019.hs:19)
+ from the context ()
+ Probable cause: missing `C [a]' in instance declaration context
+ or missing instance declaration for `C [a]'
+ When checking the superclasses of an instance declaration
tcfail019.hs:19:
- No instance for: `C [a]'
- arising from an instance declaration, at tcfail019.hs:19
- Available context: (B [a], C [a])
- From the superclasses of the instance declaration
+ Could not deduce `B [a]'
+ (arising from an instance declaration at tcfail019.hs:19)
+ from the context ()
+ Probable cause: missing `B [a]' in instance declaration context
+ or missing instance declaration for `B [a]'
+ When checking the superclasses of an instance declaration
Compilation had errors
tcfail020.hs:11:
- No instance for: `A [a]'
- arising from an instance declaration, at tcfail020.hs:11
- Available context: (A [a])
- From the superclasses of the instance declaration
+ Could not deduce `A [a]'
+ (arising from an instance declaration at tcfail020.hs:11)
+ from the context (A a)
+ Probable cause: missing `A [a]' in instance declaration context
+ or missing instance declaration for `A [a]'
+ When checking the superclasses of an instance declaration
Compilation had errors
for `A B' at tcfail023.hs:14 and tcfail023.hs:11
tcfail023.hs:14:
- Couldn't match the type `Bool' against `B'
- Expected: Bool
- Inferred: B
- In an equation for function `op': op C = True
- In the definition for method `op'
+ Couldn't match the type `B' against `Bool'
+ Expected: B
+ Inferred: Bool
+ In an equation for function `op': op C = True
+ In the definition for method `op'
tcfail023.hs:11:
- Couldn't match the type `Bool' against `B'
- Expected: Bool
- Inferred: B
- In an equation for function `op': op C = True
- In the definition for method `op'
+ Couldn't match the type `B' against `Bool'
+ Expected: B
+ Inferred: Bool
+ In an equation for function `op': op C = True
+ In the definition for method `op'
Compilation had errors
tcfail028.hs:4:
- Couldn't match the kind ** against kaIT -> *
- Expected: **
- Found: kaIT -> *
- In the type `A a'
- In the data declaration for `A'
+ Couldn't match the kind ** against kaPo -> *
+ Expected: **
+ Found: kaPo -> *
+ In the type `A a'
+ In the data declaration for `A'
Compilation had errors
tcfail029.hs:6:
- No instance for: `Ord Foo'
- arising from use of `>', at tcfail029.hs:6
+ No instance for `Ord Foo'
+ (arising from use of `>' at tcfail029.hs:6)
Compilation had errors
tcfail031.hs:3:
- Couldn't match the type `Char' against `Bool'
- Expected: Char
- Inferred: Bool
- In the predicate expression: 'a'
- In an equation for function `f': f x = if 'a' then 1 else 2
+ Couldn't match the type `Bool' against `Char'
+ Expected: Bool
+ Inferred: Char
+ In the predicate expression: 'a'
+ In an equation for function `f': f x = if 'a' then 1 else 2
Compilation had errors
A type signature is more polymorphic than the inferred type
Can't for-all the type variable(s) `a'
in the type `a -> Int'
- In an expression with a type signature:
- x :: _forall_ [a] (PrelBase.Eq a) => a -> Int
+ In an expression with a type signature:
+ x :: _forall_ [a] (PrelBase.Eq a) => a -> Int
Compilation had errors
tcfail033.hs:4:
- Occurs check: cannot construct the infinite type: aIB = (aIB, aIE)
- Expected: aIF aIB
- Inferred: aIF (aIB, aIE)
- In a pattern binding: buglet = [x | (x, y) <- buglet]
+ Occurs check: cannot construct the infinite type: aM8 = (aM8, aMb)
+ Expected: aMc (aM8, aMb)
+ Inferred: aMc aM8
+ In a pattern binding: buglet = [x | (x, y) <- buglet]
Compilation had errors
tcfail034.hs:17:
- No instance for: `Integral a'
- arising from use of `mod', at tcfail034.hs:17
- Available context: (Num a, Eq a)
- When checking the type signature(s) for `test'
+ Could not deduce `Integral a'
+ (arising from use of `mod' at tcfail034.hs:17)
+ from the context (Num a, Eq a, test at a)
+ Probable cause: missing `Integral a' in type signature for `test'
+ When checking the type signature(s) for `test'
Compilation had errors
in an instance declaration for `Eq'
tcfail035.hs:7: Warning:
- No explicit method nor default method for `+'
+ No explicit method nor default method for `fromInteger'
in an instance declaration for `Num'
tcfail035.hs:7: Warning:
- No explicit method nor default method for `*'
+ No explicit method nor default method for `signum'
in an instance declaration for `Num'
tcfail035.hs:7: Warning:
- No explicit method nor default method for `negate'
+ No explicit method nor default method for `abs'
in an instance declaration for `Num'
tcfail035.hs:7: Warning:
- No explicit method nor default method for `abs'
+ No explicit method nor default method for `negate'
in an instance declaration for `Num'
tcfail035.hs:7: Warning:
- No explicit method nor default method for `signum'
+ No explicit method nor default method for `*'
in an instance declaration for `Num'
tcfail035.hs:7: Warning:
- No explicit method nor default method for `fromInteger'
+ No explicit method nor default method for `+'
in an instance declaration for `Num'
tcfail035.hs:6: Warning:
- No explicit method nor default method for `+'
+ No explicit method nor default method for `fromInteger'
in an instance declaration for `Num'
tcfail035.hs:6: Warning:
- No explicit method nor default method for `*'
+ No explicit method nor default method for `signum'
in an instance declaration for `Num'
tcfail035.hs:6: Warning:
- No explicit method nor default method for `negate'
+ No explicit method nor default method for `abs'
in an instance declaration for `Num'
tcfail035.hs:6: Warning:
- No explicit method nor default method for `abs'
+ No explicit method nor default method for `negate'
in an instance declaration for `Num'
tcfail035.hs:6: Warning:
- No explicit method nor default method for `signum'
+ No explicit method nor default method for `*'
in an instance declaration for `Num'
tcfail035.hs:6: Warning:
- No explicit method nor default method for `fromInteger'
+ No explicit method nor default method for `+'
in an instance declaration for `Num'
tcfail036.hs:8: Warning:
- No explicit method nor default method for `+'
+ No explicit method nor default method for `fromInteger'
in an instance declaration for `Num'
tcfail036.hs:8: Warning:
- No explicit method nor default method for `*'
+ No explicit method nor default method for `signum'
in an instance declaration for `Num'
tcfail036.hs:8: Warning:
- No explicit method nor default method for `negate'
+ No explicit method nor default method for `abs'
in an instance declaration for `Num'
tcfail036.hs:8: Warning:
- No explicit method nor default method for `abs'
+ No explicit method nor default method for `negate'
in an instance declaration for `Num'
tcfail036.hs:8: Warning:
- No explicit method nor default method for `signum'
+ No explicit method nor default method for `*'
in an instance declaration for `Num'
tcfail036.hs:8: Warning:
- No explicit method nor default method for `fromInteger'
+ No explicit method nor default method for `+'
in an instance declaration for `Num'
tcfail036.hs:7: Warning:
- No explicit method nor default method for `*'
+ No explicit method nor default method for `fromInteger'
in an instance declaration for `Num'
tcfail036.hs:7: Warning:
- No explicit method nor default method for `negate'
+ No explicit method nor default method for `signum'
in an instance declaration for `Num'
tcfail036.hs:7: Warning:
in an instance declaration for `Num'
tcfail036.hs:7: Warning:
- No explicit method nor default method for `signum'
+ No explicit method nor default method for `negate'
in an instance declaration for `Num'
tcfail036.hs:7: Warning:
- No explicit method nor default method for `fromInteger'
+ No explicit method nor default method for `*'
in an instance declaration for `Num'
tcfail036.hs:9:
- Class used as a type constructor: Num In the type `Eq Num'
+ Class used as a type constructor: Num
+ In the type `Eq Num'
tcfail036.hs:3:
Duplicate or overlapping instance declarations
for `Num NUM' at tcfail036.hs:8 and tcfail036.hs:7
tcfail036.hs:8:
- No instance for: `Eq NUM'
- arising from an instance declaration, at tcfail036.hs:8
+ No instance for `Eq NUM'
+ (arising from an instance declaration at tcfail036.hs:8)
tcfail036.hs:8:
- No instance for: `Show NUM'
- arising from an instance declaration, at tcfail036.hs:8
+ No instance for `Show NUM'
+ (arising from an instance declaration at tcfail036.hs:8)
Compilation had errors
tcfail040.hs:19:
- Cannot resolve the ambiguous context (ORD aG5)
- `ORD aG5' arising from use of `<<', at tcfail040.hs:19
+ Ambiguous type variable(s)
+ `aMu'
+ in the constraint `ORD aMu'
+ arising from use of `<<' at tcfail040.hs:19
Compilation had errors
tcfail042.hs:18:
- No instance for: `Num a'
- arising from an instance declaration, at tcfail042.hs:18
- Available context: (Foo [a])
- From the superclasses of the instance declaration
+ Could not deduce `Num a'
+ (arising from an instance declaration at tcfail042.hs:18)
+ from the context (Eq a, Show a)
+ Probable cause: missing `Num a' in instance declaration context
+ When checking the superclasses of an instance declaration
Compilation had errors
where T is not a synonym, and a,b,c are distinct type variables)
tcfail044.hs:20:
- No instance for: `Num (Float -> Float)'
- arising from use of `+', at tcfail044.hs:20
+ No instance for `Num (Float -> Float)'
+ (arising from use of `+' at tcfail044.hs:20)
Compilation had errors
class CCallable type Socket
tcfail045.hs:13:
- No instance for: `CCallable Socket'
- arising from an argument in the _ccall_ to `foo', namely `x', at tcfail045.hs:13
+ No instance for `CCallable Socket'
+ (arising from an argument in the _ccall_ to `foo', namely `x' at tcfail045.hs:13)
Compilation had errors
tcfail046.hs:4:
- No instance for: `Eq (Process a)'
- When deriving classes for `Message'
+ No instance for `Eq (Process a)'
+ When deriving classes for `Message'
Compilation had errors
tcfail051.hs:4: Type constructor or class not in scope: `B'
+
+tcfail051.hs:4: Value not in scope: `op1'
Compilation had errors
tcfail055.hs:3:
Couldn't match the type `Int' against `Float'
- Expected: Int
- Inferred: Float
- In an expression with a type signature: x + 1 :: Int
+ Expected: Int
+ Inferred: Float
+ In an expression with a type signature: x + 1 :: Int
Compilation had errors
tcfail057.hs:5:
Class used as a type constructor: RealFrac
- In the type `_forall_ [a] => RealFrac a -> a -> a'
+ In the type `_forall_ [a] => RealFrac a -> a -> a'
Compilation had errors
tcfail058.hs:6:
Type constructor used as a class: PrelArr.Array
- In the context `(PrelArr.Array a)'
- In the type `_forall_ [a b] (PrelArr.Array a) => a -> b'
+ In the context `(PrelArr.Array a)'
+ In the type `_forall_ [a b] (PrelArr.Array a) => a -> b'
Compilation had errors
tcfail065.hs:29:
A type signature is more polymorphic than the inferred type
- Can't for-all the type variable(s) `aLX'
- in the type `aLX -> X x -> X x'
- When checking the type signature for `setX'
- In the definition for method `setX'
+ Can't for-all the type variable(s) `aSs'
+ in the type `aSs -> X x -> X x'
+ When checking the type signature for `setX'
+ In the definition for method `setX'
Compilation had errors
tcfail067.hs:65: Warning:
- No explicit method nor default method for `abs'
+ No explicit method nor default method for `signum'
in an instance declaration for `Num'
tcfail067.hs:65: Warning:
- No explicit method nor default method for `signum'
+ No explicit method nor default method for `abs'
in an instance declaration for `Num'
tcfail067.hs:76:
- No instance for: `Ord a'
- arising from use of `SubRange', at tcfail067.hs:76
- Available context: (Num a)
- When checking the type signature(s) for `numSubRangeBinOp'
+ Could not deduce `Ord a'
+ (arising from use of `SubRange' at tcfail067.hs:76)
+ from the context (Num a, numSubRangeBinOp at a)
+ Probable cause: missing `Ord a' in type signature for `numSubRangeBinOp'
+ When checking the type signature(s) for `numSubRangeBinOp'
-tcfail067.hs:61:
- No instance for: `Ord a'
- arising from use of `numSubRangeNegate', at tcfail067.hs:61
- Available context: (Eq (SubRange a), Show (SubRange a), Eval (SubRange a))
- From the superclasses of the instance declaration
+tcfail067.hs:65:
+ Could not deduce `Ord a'
+ (arising from use of `SubRange' at tcfail067.hs:65)
+ from the context (Num (SubRange a), Num a, Eq (SubRange a), Show (SubRange a), Eval (SubRange a), Eq (SubRange a), Show (SubRange a), Eval (SubRange a), fromInt at SubRange a, fromInteger at SubRange a, signum at SubRange a, abs at SubRange a, negate at SubRange a, * at SubRange a, - at SubRange a, + at SubRange a)
+ Probable cause: missing `Ord a' in instance declaration context
+ When checking the methods of an instance declaration
tcfail067.hs:65:
- No instance for: `Show (SubRange a)'
- arising from an instance declaration, at tcfail067.hs:65
- Available context: (Eq (SubRange a), Show (SubRange a), Eval (SubRange a))
- From the superclasses of the instance declaration
+ Could not deduce `Show (SubRange a)'
+ (arising from an instance declaration at tcfail067.hs:65)
+ from the context (Num a)
+ Probable cause: missing `Show (SubRange a)' in instance declaration context
+ or missing instance declaration for `Show (SubRange a)'
+ When checking the superclasses of an instance declaration
Compilation had errors
tcfail068.hs:45:
A type signature is more polymorphic than the inferred type
- Can't for-all the type variable(s) `a1cm'
- in the type `ST a1cm a1ci'
- In a polymorphic function argument: (itrapstate' i k s)
- In the first argument of `runST', namely `(itrapstate' i k s)'
- In an equation for function `itrapstate':
- itrapstate ((i, k), (j, l)) f c d s arr
- = runST (itrapstate' i k s)
- where
- itrapstatesnd i k s
- = if i > j then
- return (s, (arr))
- else
- ((readArray arr (i, (k)))
- >>= (\ val
- -> let
- (newstate, newval) = f (... ... ...) val
- in
- (... ... ... ...) >> (... ... ... ...)))
- itrapstate' i k s
- = if k > l then
- return (s, (arr))
- else
- ((itrapstatesnd i k s)
- >>= (\ (s, arr) -> itrapstate' i (k + 1) s))
+ Can't for-all the type variable(s) `a1jl'
+ in the type `ST a1jl a1jh'
+ In the first argument of `runST', namely `(itrapstate' i k s)'
+ In an equation for function `itrapstate':
+ itrapstate ((i, k), (j, l)) f c d s arr
+ = runST (itrapstate' i k s)
+ where
+ itrapstatesnd i k s
+ = if i > j then
+ return (s, (arr))
+ else
+ ((readArray arr (i, (k)))
+ >>= (\ val
+ -> let (newstate, newval) = f (c (i, (k)) s) val
+ in (...) >> (...)))
+ itrapstate' i k s
+ = if k > l then
+ return (s, (arr))
+ else
+ ((itrapstatesnd i k s)
+ >>= (\ (s, arr) -> itrapstate' i (k + 1) s))
tcfail068.hs:32:
A type signature is more polymorphic than the inferred type
- Can't for-all the type variable(s) `a1f3'
- in the type `ST a1f3 a1eZ'
- In a polymorphic function argument: (itrap' i k)
- In the first argument of `runST', namely `(itrap' i k)'
- In an equation for function `itrap':
- itrap ((i, k), (j, l)) f arr
- = runST (itrap' i k)
- where
- itrapsnd i k
- = if i > j then
- return arr
- else
- ((readArray arr (i, (k)))
- >>= (\ val
- -> (writeArray arr (..., ...) (... ...))
- >> (itrapsnd (... + 1) k)))
- itrap' i k
- = if k > l then
- return arr
- else
- ((itrapsnd i k) >> (itrap' i (k + 1)))
+ Can't for-all the type variable(s) `a1m6'
+ in the type `ST a1m6 a1m2'
+ In the first argument of `runST', namely `(itrap' i k)'
+ In an equation for function `itrap':
+ itrap ((i, k), (j, l)) f arr
+ = runST (itrap' i k)
+ where
+ itrapsnd i k
+ = if i > j then
+ return arr
+ else
+ ((readArray arr (i, (k)))
+ >>= (\ val
+ -> (writeArray arr (i, (k)) (f val))
+ >> (itrapsnd (... + 1) k)))
+ itrap' i k
+ = if k > l then
+ return arr
+ else
+ ((itrapsnd i k) >> (itrap' i (k + 1)))
tcfail068.hs:21:
A type signature is more polymorphic than the inferred type
- Can't for-all the type variable(s) `a1fu'
- in the type `ST a1fu a1fk'
- In a polymorphic function argument: ((readArray arr i)
- >>= (\ val
- -> (writeArray arr i (... ...))
- >> (return arr)))
- In the first argument of `runST', namely
- `((readArray arr i)
- >>= (\ val -> (writeArray arr i (... ...)) >> (return arr)))'
- In an equation for function `itiap':
- itiap i f arr
- = runST ((readArray arr i)
- >>= (\ val -> (... ... ... ...) >> (... ...)))
+ Can't for-all the type variable(s) `a1mB'
+ in the type `ST a1mB a1mr'
+ In the first argument of `runST', namely
+ `((readArray arr i)
+ >>= (\ val -> (writeArray arr i (f val)) >> (return arr)))'
+ In an equation for function `itiap':
+ itiap i f arr
+ = runST ((readArray arr i)
+ >>= (\ val -> (writeArray arr i (f val)) >> (return arr)))
tcfail068.hs:14:
A type signature is more polymorphic than the inferred type
- Can't for-all the type variable(s) `a1gq'
- in the type `ST a1gq a1gm'
- In a polymorphic function argument: (newArray ((1, (1)), (n)) x)
- In the first argument of `runST', namely
- `(newArray ((1, (1)), (n)) x)'
- In an equation for function `itgen':
- itgen n x = runST (newArray ((1, (1)), (n)) x)
+ Can't for-all the type variable(s) `a1nB'
+ in the type `ST a1nB a1nx'
+ In the first argument of `runST', namely
+ `(newArray ((1, (1)), (n)) x)'
+ In an equation for function `itgen':
+ itgen n x = runST (newArray ((1, (1)), (n)) x)
Compilation had errors
-tcfail069.hs:21:
- Couldn't match the type `(aBr, aBt)' against `[aBw]'
- Expected: [aBw]
- Inferred: ([Int], [Int])
- In a "case" branch: [] -> error "foo"
- In the case expression: case (list1, (list2)) of [] -> error "foo"
+tcfail069.hs:20:
+ Couldn't match the type `[aEL]' against `(aEP, aER)'
+ Expected: [aEL]
+ Inferred: (aEP, aER)
+ In the scrutinee of a case expression: (list1, (list2))
+ In the case expression: case (list1, (list2)) of [] -> error "foo"
Compilation had errors
tcfail070.hs:13:
- Couldn't match the kind * against * -> kawG
- Expected: *
- Found: * -> kawG
- In the type `[Int] Bool'
- In the type declaration for `State'
+ Couldn't match the kind * against * -> kaAl
+ Expected: *
+ Found: * -> kaAl
+ In the type `[Int] Bool'
+ In the type declaration for `State'
Compilation had errors
tcfail071.hs:8:
Type signature doesn't match inferred type
Signature: c -> c
- Inferred : (aG1 -> [aG6] -> [aG6]) -> aG1 -> [aG6] -> [aG6]
- When checking the type signature for `g'
+ Inferred : (aMF -> [aMD] -> [aMD]) -> aMF -> [aMD] -> [aMD]
+ When checking the type signature for `g'
Compilation had errors
tcfail072.hs:23:
- Cannot resolve the ambiguous context (Ord aGd)
- `Ord aGd' arising from use of `g', at tcfail072.hs:23
+ Ambiguous type variable(s)
+ `aMK'
+ in the constraint `Ord aMK'
+ arising from use of `g' at tcfail072.hs:23
tcfail072.hs:23:
- Cannot resolve the ambiguous context (Ord aGg)
- `Ord aGg' arising from use of `g', at tcfail072.hs:23
+ Ambiguous type variable(s)
+ `aMN'
+ in the constraint `Ord aMN'
+ arising from use of `g' at tcfail072.hs:23
Compilation had errors
tcfail073.hs:3:
Duplicate or overlapping instance declarations
- for `Eq (a, b)' at PrelTup.hi:58 and tcfail073.hs:8
+ for `Eq (a, b)' at PrelTup.hi:11 and tcfail073.hs:8
tcfail073.hs:8:
- No instance for: `Eq a'
- arising from use of `==', at tcfail073.hs:8
- Available context: ()
- From the superclasses of the instance declaration
+ Could not deduce `Eq a'
+ (arising from use of `==' at tcfail073.hs:8)
+ from the context (Eq (a, b), /= at (a, b), == at (a, b))
+ Probable cause: missing `Eq a' in instance declaration context
+ When checking the methods of an instance declaration
Compilation had errors
tcfail076.hs:20:
A type signature is more polymorphic than the inferred type
- Can't for-all the type variable(s) `aGU'
- in the type `(aGQ -> aGO aGU) -> aGO aGU'
- In a polymorphic function argument: (\ cont' -> cont a)
- In the first argument of `KContT', namely `(\ cont' -> cont a)'
- In the first argument of `f', namely
- `(\ a -> KContT (\ cont' -> cont a))'
+ Can't for-all the type variable(s) `aNv'
+ in the type `(aNr -> aNp aNv) -> aNp aNv'
+ In the first argument of `KContT', namely `(\ cont' -> cont a)'
+ In the first argument of `f', namely
+ `(\ a -> KContT (\ cont' -> cont a))'
+ In the first argument of `unKContT', namely
+ `(f (\ a -> KContT (\ cont' -> cont a)))'
Compilation had errors
-tcfail077.hs:8: Class `Foo' does not have a method `op2'
+tcfail077.hs:8: Value not in scope: `op2'
Compilation had errors
tcfail078.hs:5:
Type constructor used as a class: Integer
- In the context `(Integer i)'
- In the type `_forall_ [i] (Integer i) => i'
+ In the context `(Integer i)'
+ In the type `_forall_ [i] (Integer i) => i'
Compilation had errors
-tcfail080.hs:7:
- Too many parameters for class `Collection'
- In the class declaration for `Collection'
+tcfail080.hs:11:
+ Ambiguous type variable(s)
+ `aqR'
+ in the constraint `Collection aqR aqU'
+ arising from use of `singleton' at tcfail080.hs:11
Compilation had errors