By: |
Auto THEN Unfolds [`fpf-sub`] 0
THEN
Try
(RWO
(Thm* B,C:(A Type), eq:EqDecider(A), f:a:A fp-> B(a), g:a:A fp-> C(a), x:A.
(Thm* x dom(f)  f g(x) = f(x) B(x)
(0)
THEN
Try
(RWO
(Thm* eq:EqDecider(A), f,g:a:A fp-> Top, x:A.
(Thm* x dom(f g)  x dom(f) x dom(g)
(0
(THEN
(OrLeft) |