ff01774fd7
This renaming is because type_quotient is a nonstandard name. I've had a discussion with Egbert Rijke, Steve Awodey and Dan Licata, and the consensus for a better name was 'quotient'. I had to make changes in src/kernel/hits/hits.cpp, I renamed g_type_quotient* by g_hit_quotient* (to avoid name clash the standard library quotient, although I don't know whether that name clash would matter).
9 lines
247 B
Text
9 lines
247 B
Text
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 : quotient R) : P :=
|
|
begin
|
|
induction x,
|
|
exact (Pc a),
|
|
refine (pathover_of_eq (Pp H))
|
|
end
|