==================== Tidy Core ==================== 2017-09-20 00:27:06.0467664 UTC Result size of Tidy Core = {terms: 667, types: 35, coercions: 3, joins: 0/0} -- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0} CoreDump.Matrix.Inverse.$trModule2 :: GHC.Prim.Addr# CoreDump.Matrix.Inverse.$trModule2 = "CoreDump.Matrix.Inverse"# -- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0} CoreDump.Matrix.Inverse.$trModule1 :: GHC.Types.TrName CoreDump.Matrix.Inverse.$trModule1 = GHC.Types.TrNameS CoreDump.Matrix.Inverse.$trModule2 -- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0} CoreDump.Matrix.Inverse.$trModule4 :: GHC.Prim.Addr# CoreDump.Matrix.Inverse.$trModule4 = "main"# -- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0} CoreDump.Matrix.Inverse.$trModule3 :: GHC.Types.TrName CoreDump.Matrix.Inverse.$trModule3 = GHC.Types.TrNameS CoreDump.Matrix.Inverse.$trModule4 -- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0} CoreDump.Matrix.Inverse.$trModule :: GHC.Types.Module CoreDump.Matrix.Inverse.$trModule = GHC.Types.Module CoreDump.Matrix.Inverse.$trModule3 CoreDump.Matrix.Inverse.$trModule1 -- RHS size: {terms: 652, types: 22, coercions: 3, joins: 0/0} inverse_ :: Matrix 4 4 Float -> Matrix 4 4 Float inverse_ = \ (m :: Matrix 4 4 Float) -> case m `cast` of { TensorInstances.Tensor'4'4'Float dt dt1 dt2 dt3 dt4 dt5 dt6 dt7 dt8 dt9 dt10 dt11 dt12 dt13 dt14 dt15 -> case GHC.Prim.divideFloat# 1.0# (GHC.Prim.plusFloat# (GHC.Prim.timesFloat# dt (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt5 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt10 dt15) (GHC.Prim.timesFloat# dt11 dt14))) (GHC.Prim.timesFloat# dt6 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt9 dt15) (GHC.Prim.timesFloat# dt11 dt13)))) (GHC.Prim.timesFloat# dt7 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt9 dt14) (GHC.Prim.timesFloat# dt10 dt13))))) (GHC.Prim.plusFloat# (GHC.Prim.timesFloat# (GHC.Prim.timesFloat# -1.0# dt1) (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt10 dt15) (GHC.Prim.timesFloat# dt11 dt14))) (GHC.Prim.timesFloat# dt6 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt15) (GHC.Prim.timesFloat# dt11 dt12)))) (GHC.Prim.timesFloat# dt7 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt14) (GHC.Prim.timesFloat# dt10 dt12))))) (GHC.Prim.plusFloat# (GHC.Prim.timesFloat# dt2 (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt9 dt15) (GHC.Prim.timesFloat# dt11 dt13))) (GHC.Prim.timesFloat# dt5 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt15) (GHC.Prim.timesFloat# dt11 dt12)))) (GHC.Prim.timesFloat# dt7 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt13) (GHC.Prim.timesFloat# dt9 dt12))))) (GHC.Prim.timesFloat# (GHC.Prim.timesFloat# -1.0# dt3) (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt9 dt14) (GHC.Prim.timesFloat# dt10 dt13))) (GHC.Prim.timesFloat# dt5 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt14) (GHC.Prim.timesFloat# dt10 dt12)))) (GHC.Prim.timesFloat# dt6 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt13) (GHC.Prim.timesFloat# dt9 dt12)))))))) of wild4 { __DEFAULT -> (TensorInstances.Tensor'4'4'Float (GHC.Prim.timesFloat# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt5 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt10 dt15) (GHC.Prim.timesFloat# dt11 dt14))) (GHC.Prim.timesFloat# dt6 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt9 dt15) (GHC.Prim.timesFloat# dt11 dt13)))) (GHC.Prim.timesFloat# dt7 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt9 dt14) (GHC.Prim.timesFloat# dt10 dt13)))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.timesFloat# -1.0# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt1 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt10 dt15) (GHC.Prim.timesFloat# dt11 dt14))) (GHC.Prim.timesFloat# dt2 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt9 dt15) (GHC.Prim.timesFloat# dt11 dt13)))) (GHC.Prim.timesFloat# dt3 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt9 dt14) (GHC.Prim.timesFloat# dt10 dt13))))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt1 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt6 dt15) (GHC.Prim.timesFloat# dt7 dt14))) (GHC.Prim.timesFloat# dt2 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt5 dt15) (GHC.Prim.timesFloat# dt7 dt13)))) (GHC.Prim.timesFloat# dt3 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt5 dt14) (GHC.Prim.timesFloat# dt6 dt13)))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.timesFloat# -1.0# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt1 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt6 dt11) (GHC.Prim.timesFloat# dt7 dt10))) (GHC.Prim.timesFloat# dt2 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt5 dt11) (GHC.Prim.timesFloat# dt7 dt9)))) (GHC.Prim.timesFloat# dt3 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt5 dt10) (GHC.Prim.timesFloat# dt6 dt9))))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.timesFloat# -1.0# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt10 dt15) (GHC.Prim.timesFloat# dt11 dt14))) (GHC.Prim.timesFloat# dt6 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt15) (GHC.Prim.timesFloat# dt11 dt12)))) (GHC.Prim.timesFloat# dt7 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt14) (GHC.Prim.timesFloat# dt10 dt12))))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt10 dt15) (GHC.Prim.timesFloat# dt11 dt14))) (GHC.Prim.timesFloat# dt2 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt15) (GHC.Prim.timesFloat# dt11 dt12)))) (GHC.Prim.timesFloat# dt3 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt14) (GHC.Prim.timesFloat# dt10 dt12)))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.timesFloat# -1.0# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt6 dt15) (GHC.Prim.timesFloat# dt7 dt14))) (GHC.Prim.timesFloat# dt2 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 dt15) (GHC.Prim.timesFloat# dt7 dt12)))) (GHC.Prim.timesFloat# dt3 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 dt14) (GHC.Prim.timesFloat# dt6 dt12))))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt6 dt11) (GHC.Prim.timesFloat# dt7 dt10))) (GHC.Prim.timesFloat# dt2 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 dt11) (GHC.Prim.timesFloat# dt7 dt8)))) (GHC.Prim.timesFloat# dt3 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 dt10) (GHC.Prim.timesFloat# dt6 dt8)))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt9 dt15) (GHC.Prim.timesFloat# dt11 dt13))) (GHC.Prim.timesFloat# dt5 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt15) (GHC.Prim.timesFloat# dt11 dt12)))) (GHC.Prim.timesFloat# dt7 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt13) (GHC.Prim.timesFloat# dt9 dt12)))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.timesFloat# -1.0# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt9 dt15) (GHC.Prim.timesFloat# dt11 dt13))) (GHC.Prim.timesFloat# dt1 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt15) (GHC.Prim.timesFloat# dt11 dt12)))) (GHC.Prim.timesFloat# dt3 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt13) (GHC.Prim.timesFloat# dt9 dt12))))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt5 dt15) (GHC.Prim.timesFloat# dt7 dt13))) (GHC.Prim.timesFloat# dt1 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 dt15) (GHC.Prim.timesFloat# dt7 dt12)))) (GHC.Prim.timesFloat# dt3 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 dt13) (GHC.Prim.timesFloat# dt5 dt12)))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.timesFloat# -1.0# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt5 dt11) (GHC.Prim.timesFloat# dt7 dt9))) (GHC.Prim.timesFloat# dt1 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 dt11) (GHC.Prim.timesFloat# dt7 dt8)))) (GHC.Prim.timesFloat# dt3 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 dt9) (GHC.Prim.timesFloat# dt5 dt8))))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.timesFloat# -1.0# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt9 dt14) (GHC.Prim.timesFloat# dt10 dt13))) (GHC.Prim.timesFloat# dt5 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt14) (GHC.Prim.timesFloat# dt10 dt12)))) (GHC.Prim.timesFloat# dt6 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt13) (GHC.Prim.timesFloat# dt9 dt12))))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt9 dt14) (GHC.Prim.timesFloat# dt10 dt13))) (GHC.Prim.timesFloat# dt1 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt14) (GHC.Prim.timesFloat# dt10 dt12)))) (GHC.Prim.timesFloat# dt2 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt8 dt13) (GHC.Prim.timesFloat# dt9 dt12)))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.timesFloat# -1.0# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt5 dt14) (GHC.Prim.timesFloat# dt6 dt13))) (GHC.Prim.timesFloat# dt1 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 dt14) (GHC.Prim.timesFloat# dt6 dt12)))) (GHC.Prim.timesFloat# dt2 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 dt13) (GHC.Prim.timesFloat# dt5 dt12))))) wild4) (GHC.Prim.timesFloat# (GHC.Prim.plusFloat# (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt5 dt10) (GHC.Prim.timesFloat# dt6 dt9))) (GHC.Prim.timesFloat# dt1 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 dt10) (GHC.Prim.timesFloat# dt6 dt8)))) (GHC.Prim.timesFloat# dt2 (GHC.Prim.minusFloat# (GHC.Prim.timesFloat# dt4 dt9) (GHC.Prim.timesFloat# dt5 dt8)))) wild4)) `cast` } }