Set: pp::colors
  Set: pp::unicode
  Assumed: cast
  Assumed: CastEq
  Assumed: CastApp
  Assumed: DomInj
  Assumed: RanInj
  Assumed: A
  Assumed: B
  Assumed: A'
  Assumed: B'
  Assumed: H
  Assumed: a
DomInj H : A == A'
  Proved: BeqB'
  Set: lean::pp::implicit
@DomInj A A' (λ x : A, B) (λ x : A', B') H
@RanInj A A' (λ x : A, B) (λ x : A', B') H a