================================================================================
Desugared:
Rec {
{-# L #-}
d.Num_aHE =
    PrelBase.$d3
{-# L #-}
fromInt_aKm =
    PrelBase.fromInt
	_@_ PrelBase.Int d.Num_aHE
{-# L #-}
lit_aKx =
    let {
      {-# L #-}
      ds_dKW =
	  PrelBase.I#
	      3
    } in 
      fromInt_aKm
	  ds_dKW
{-# L #-}
fromInt_aKw =
    fromInt_aKm
{-# L #-}
lit_aKt =
    let {
      {-# L #-}
      ds_dLb =
	  PrelBase.I#
	      4
    } in 
      fromInt_aKw
	  ds_dLb
{-# L #-}
f = _/\_ t{-aHm-} -> \ {-# L #-}
		       x_r3d ->
	let {
	  {-# L #-}
	  ds_dLw =
	      x_r3d } in
	let {
	  {-# L #-}
	  fail_dLy =
	      lit_aKt
	} in 
	  case ds_dLw of {
	    PrelBase.: ds_dLG ds_dLF ->
		fail_dLy;
	    PrelBase.[] ->
		lit_aKx;
	  }
end Rec }