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

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
fix(frontends/lean/parser): fixes #616 2015-05-21 06:33:41 +00:00			`open eq`
			`definition my_elim {A P : Type} {R : A → A → Type} (Pc : A → P)`
renaming(hit): rename type_quotient to quotient, and quotient to set_quotient 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). 2015-06-04 19:57:00 +00:00			`(Pp : Π⦃a a' : A⦄ (H : R a a'), Pc a = Pc a') (x : quotient R) : P :=`
fix(frontends/lean/parser): fixes #616 2015-05-21 06:33:41 +00:00			`begin`
			`induction x,`
			`exact (Pc a),`
fix(tests): fix tests to reflect changes 2015-05-27 01:17:46 +00:00			`refine (pathover_of_eq (Pp H))`
fix(frontends/lean/parser): fixes #616 2015-05-21 06:33:41 +00:00			`end`