==================== Tidy Core ====================
2017-09-08 01:36:19.5358233 UTC

Result size of Tidy Core
  = {terms: 91, types: 63, coercions: 1, joins: 0/0}

-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
CoreDump.Tensor.Ofoldl1ExStrict.$trModule4 :: GHC.Prim.Addr#
CoreDump.Tensor.Ofoldl1ExStrict.$trModule4 = "main"#

-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
CoreDump.Tensor.Ofoldl1ExStrict.$trModule3 :: GHC.Types.TrName
CoreDump.Tensor.Ofoldl1ExStrict.$trModule3
  = GHC.Types.TrNameS CoreDump.Tensor.Ofoldl1ExStrict.$trModule4

-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
CoreDump.Tensor.Ofoldl1ExStrict.$trModule2 :: GHC.Prim.Addr#
CoreDump.Tensor.Ofoldl1ExStrict.$trModule2
  = "CoreDump.Tensor.Ofoldl1ExStrict"#

-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
CoreDump.Tensor.Ofoldl1ExStrict.$trModule1 :: GHC.Types.TrName
CoreDump.Tensor.Ofoldl1ExStrict.$trModule1
  = GHC.Types.TrNameS CoreDump.Tensor.Ofoldl1ExStrict.$trModule2

-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
CoreDump.Tensor.Ofoldl1ExStrict.$trModule :: GHC.Types.Module
CoreDump.Tensor.Ofoldl1ExStrict.$trModule
  = GHC.Types.Module
      CoreDump.Tensor.Ofoldl1ExStrict.$trModule3
      CoreDump.Tensor.Ofoldl1ExStrict.$trModule1

-- RHS size: {terms: 76, types: 41, coercions: 1, joins: 0/0}
ofoldl1ExStrict_
  :: (Float -> Float -> Float) -> Tensor '[2, 3, 4] Float -> Float
ofoldl1ExStrict_
  = \ (f :: Float -> Float -> Float)
      (x :: Tensor '[2, 3, 4] Float) ->
      case x `cast` <Co:1> of
      { TensorInstances.Tensor'2'3'4'Float dt dt1 dt2 dt3 dt4 dt5 dt6 dt7
                                           dt8 dt9 dt10 dt11 dt12 dt13 dt14 dt15 dt16 dt17 dt18 dt19
                                           dt20 dt21 dt22 dt23 ->
      f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (f (GHC.Types.F#
                                                                             dt23)
                                                                          (GHC.Types.F# dt22))
                                                                       (GHC.Types.F# dt21))
                                                                    (GHC.Types.F# dt20))
                                                                 (GHC.Types.F# dt19))
                                                              (GHC.Types.F# dt18))
                                                           (GHC.Types.F# dt17))
                                                        (GHC.Types.F# dt16))
                                                     (GHC.Types.F# dt15))
                                                  (GHC.Types.F# dt14))
                                               (GHC.Types.F# dt13))
                                            (GHC.Types.F# dt12))
                                         (GHC.Types.F# dt11))
                                      (GHC.Types.F# dt10))
                                   (GHC.Types.F# dt9))
                                (GHC.Types.F# dt8))
                             (GHC.Types.F# dt7))
                          (GHC.Types.F# dt6))
                       (GHC.Types.F# dt5))
                    (GHC.Types.F# dt4))
                 (GHC.Types.F# dt3))
              (GHC.Types.F# dt2))
           (GHC.Types.F# dt1))
        (GHC.Types.F# dt)
      }