From 24049fe5544580907901f722a7509a65fbf6a068 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Anders=20M=C3=B6rtberg?= Date: Tue, 21 Apr 2015 09:48:08 +0200 Subject: [PATCH] Fix helix --- examples/helix.ctt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/examples/helix.ctt b/examples/helix.ctt index a0ea958..a79bb3f 100644 --- a/examples/helix.ctt +++ b/examples/helix.ctt @@ -60,7 +60,7 @@ helixSet : (x:S1) -> set (helix x) = lemPropFib (\ (x:S1) -> set (helix x)) rem where rem (x:S1) : prop (set (helix x)) = setIsProp (helix x) retHelix (x:S1) (p : Id S1 base x) : Id (Id S1 base x) (decode x (encode x p)) p = - transport (Id (Id S1 base p@i) (decode p@i (encode p@i (p@(i/\j)))) (p@(i/\j))) (refl loopS1 triv) + transport (Id (Id S1 base (p@i)) (decode (p@i) (encode (p@i) (p@(i/\j)))) (p@(i/\j))) (refl loopS1 triv) setLoop : set loopS1 = retractSet loopS1 Z (encode base) (decode base) (retHelix base) ZSet @@ -99,7 +99,7 @@ lemSetTorus (E : S1 -> S1 -> U) (sE : set (E base base)) pP (y:S1) : prop (P y) = rem3 where rem1 : Id U (P y) (Id (E base y) (subst S1 (G y) base base loop1 (f y)) (f y)) - = funDepTr (G y base) (G y base) (G y loop{S1}@j) (f y) (f y) + = funDepTr (G y base) (G y base) (G y (loop{S1} @ j)) (f y) (f y) rem2 : prop (Id (E base y) (subst S1 (G y) base base loop1 (f y)) (f y)) = sbE y (subst S1 (G y) base base loop1 (f y)) (f y) -- 2.34.1