lean2/tests/lean/extra/616b.hlean

10 lines
252 B
Text
Raw Normal View History

2015-05-21 06:33:41 +00:00
import .f616a
open eq
definition my_elim {A P : Type} {R : A → A → Type} (Pc : A → P)
(Pp : Π⦃a a' : A⦄ (H : R a a'), Pc a = Pc a') (x : type_quotient R) : P :=
begin
induction x,
exact (Pc a),
refine (pathover_of_eq (Pp H))
2015-05-21 06:33:41 +00:00
end