import cast
setoption pp::colors false

check fun (A A': TypeM)
          (a   : A)
          (b   : A')
          (L2  : A' == A),
   let b' : A        := cast     L2 b,
       L3 : b == b'  := cast::eq L2 b
   in L3

check fun (A A': TypeM)
          (B   : A -> TypeM)
          (B'  : A' -> TypeM)
          (f   : Pi x : A, B x)
          (g   : Pi x : A', B' x)
          (a   : A)
          (b   : A')
          (H1  : (Pi x : A, B x) == (Pi x : A', B' x))
          (H2  : f == g)
          (H3  : a == b),
    let L1 : A  == A'               := dominj H1,
        L2 : A' == A                := symm L1,
        b' : A                      := cast L2 b,
        L3 : b  == b'               := cast::eq L2 b,
        L4 : a == b'                := htrans H3 L3,
        L5 : f a == f b'            := congr2 f L4
    in L5