13 lines
309 B
Text
13 lines
309 B
Text
import cast
|
|
set::option pp::colors false
|
|
|
|
check fun (A A': TypeM)
|
|
(B : A -> TypeM)
|
|
(B' : A' -> TypeM)
|
|
(f : forall x : A, B x)
|
|
(g : forall x : A', B' x)
|
|
(a : A)
|
|
(b : A')
|
|
(H2 : f == g)
|
|
(H3 : a == b),
|
|
hcongr H2 H3
|