lean2/tests/lean/hott/615.hlean

20 lines
489 B
Text
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

-- HoTT
import homotopy.circle
open circle eq int pi
attribute circle.rec circle.elim [recursor 4]
protected definition my_code (x : circle) : Type₀ :=
begin
induction x,
{ exact },
{ apply ua, apply equiv_succ}
end
protected definition my_decode {x : circle} : my_code x → base = x :=
begin
induction x,
{ exact power loop},
{ apply arrow_pathover_left, intro b, apply concato_eq, apply pathover_eq_r,
xrewrite [power_con, transport_code_loop]},
end