Issue679a.out

Agda2> (agda2-status-action "")
(agda2-info-action "*Type-checking*" "" nil)
(agda2-highlight-clear)
(agda2-info-action "*Type-checking*" "Checking Issue679a (Issue679a.agda).\n" t)
(agda2-info-action "*Type-checking*" "Finished Issue679a.\n" t)
(agda2-status-action "")
(agda2-info-action "*All Goals*" "?0 : {a : ⟦ A ⟧} → eq B' (.g a) (.f a)\n" nil)
((last . 1) . (agda2-goals-action '(0)))
Agda2> (agda2-give-action 0 "λ {a} → ?")
(agda2-status-action "")
(agda2-info-action "*All Goals*" "?1 : eq B' (.g a) (.f a)\n" nil)
((last . 1) . (agda2-goals-action '(1)))
Agda2>