From e11e54d35289b35739b20346428c3104a90ff49d Mon Sep 17 00:00:00 2001 From: Thierry Coquand Date: Wed, 27 Apr 2016 11:27:47 +0200 Subject: [PATCH] small change --- examples/subset.ctt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/examples/subset.ctt b/examples/subset.ctt index 8845828..ddded4f 100644 --- a/examples/subset.ctt +++ b/examples/subset.ctt @@ -75,7 +75,6 @@ subset10 (A : U) (sA : set A) subsetIso0 (A : U) (sA : set A) : (s0 : subset0 A sA) -> Id (subset0 A sA) (subset10 A sA (subset01 A sA s0)) s0 = \ (s0 : subset0 A sA) -> let --- TEMP : Id (subset0 A sA) (subset10 A sA (subset01 A sA s0)) s0 = undefined s0' : subset0 A sA = subset10 A sA (subset01 A sA s0) @@ -114,7 +113,7 @@ subsetIso0 (A : U) (sA : set A) : (s0 : subset0 A sA) -> = q.1 -- Show that sB can be identified with sB' idsB : IdP ( set (idB @ i)) sB' sB - -- = lemPropF U set setIsProp B' B idB sB' sB +-- = lemPropF U set setIsProp B' B idB sB' sB = undefined -- Show that f' can be identified with f. This follows from g∘g' ⇔ \x -> x -- and that there is a path q.2 between f'∘g∘g' and f -- 2.34.1