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

Result size of Tidy Core
  = {terms: 165, types: 121, coercions: 3, joins: 0/0}

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

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

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

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

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

-- RHS size: {terms: 150, types: 88, coercions: 3, joins: 0/0}
omap_
  :: (Float -> Float)
     -> Tensor '[2, 3, 4] Float -> Tensor '[2, 3, 4] Float
omap_
  = \ (f :: 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 ->
      case f (GHC.Types.F# dt) of { GHC.Types.F# dt30 ->
      case f (GHC.Types.F# dt1) of { GHC.Types.F# dt32 ->
      case f (GHC.Types.F# dt2) of { GHC.Types.F# dt34 ->
      case f (GHC.Types.F# dt3) of { GHC.Types.F# dt36 ->
      case f (GHC.Types.F# dt4) of { GHC.Types.F# dt38 ->
      case f (GHC.Types.F# dt5) of { GHC.Types.F# dt40 ->
      case f (GHC.Types.F# dt6) of { GHC.Types.F# dt42 ->
      case f (GHC.Types.F# dt7) of { GHC.Types.F# dt44 ->
      case f (GHC.Types.F# dt8) of { GHC.Types.F# dt46 ->
      case f (GHC.Types.F# dt9) of { GHC.Types.F# dt48 ->
      case f (GHC.Types.F# dt10) of { GHC.Types.F# dt50 ->
      case f (GHC.Types.F# dt11) of { GHC.Types.F# dt52 ->
      case f (GHC.Types.F# dt12) of { GHC.Types.F# dt54 ->
      case f (GHC.Types.F# dt13) of { GHC.Types.F# dt56 ->
      case f (GHC.Types.F# dt14) of { GHC.Types.F# dt58 ->
      case f (GHC.Types.F# dt15) of { GHC.Types.F# dt60 ->
      case f (GHC.Types.F# dt16) of { GHC.Types.F# dt62 ->
      case f (GHC.Types.F# dt17) of { GHC.Types.F# dt64 ->
      case f (GHC.Types.F# dt18) of { GHC.Types.F# dt66 ->
      case f (GHC.Types.F# dt19) of { GHC.Types.F# dt68 ->
      case f (GHC.Types.F# dt20) of { GHC.Types.F# dt70 ->
      case f (GHC.Types.F# dt21) of { GHC.Types.F# dt72 ->
      case f (GHC.Types.F# dt22) of { GHC.Types.F# dt74 ->
      case f (GHC.Types.F# dt23) of { GHC.Types.F# dt76 ->
      (TensorInstances.Tensor'2'3'4'Float
         dt30
         dt32
         dt34
         dt36
         dt38
         dt40
         dt42
         dt44
         dt46
         dt48
         dt50
         dt52
         dt54
         dt56
         dt58
         dt60
         dt62
         dt64
         dt66
         dt68
         dt70
         dt72
         dt74
         dt76)
      `cast` <Co:2>
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }
      }