small change
authorThierry Coquand <coquand@dhcp-179211.eduroam.chalmers.se>
Wed, 27 Apr 2016 09:27:47 +0000 (11:27 +0200)
committerThierry Coquand <coquand@dhcp-179211.eduroam.chalmers.se>
Wed, 27 Apr 2016 09:27:47 +0000 (11:27 +0200)
examples/subset.ctt

index 8845828a17a8c92bbae251a1ea51df4d05bbcfdc..ddded4fe2674b4740cbda53b3b83eba358a19678 100644 (file)
@@ -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 (<i> 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