Lawful Wedge composition does not always result in a lawful Wedge

[rpiaggio]

The example is a bit convoluted but illustrates the point.

I've opened a branch with a worksheet so that it's easy to reproduce.

https://github.com/gemini-hlsw/lucuma-core/blob/wedge/modules/tests/shared/src/test/scala/lucuma/core/optics/wedge.worksheet.sc

In summary, if we define:

val mirrorWedge: Wedge[Option[BigDecimal], Option[BigDecimal]] =
  Wedge(
    _.map(_.setScale(2, scala.math.BigDecimal.RoundingMode.HALF_UP)),
    _.map(_.setScale(2, scala.math.BigDecimal.RoundingMode.HALF_UP))
  )

val posBigDecimalWedge: Wedge[Option[BigDecimal], Option[PosBigDecimal]] =
  Wedge(
    _.flatMap(bd => PosBigDecimal.from(bd).toOption),
    _.map(_.value)
  )

val combinedWedge: Wedge[Option[BigDecimal], Option[PosBigDecimal]] =
  mirrorWedge.andThen(posBigDecimalWedge)

Then both mirrorWedge and posBigDecimalWedge are lawful, but combinedWedge fails normalize B.

It seems to be caused because truncation on the reverseGets turns a valid PosBigDecimal into an invalid one (when x < 0.01).