endPtOfTrue

This commit is contained in:
Jlh18 2021-10-21 14:31:36 +01:00
parent ef75329b74
commit 0b0693080a
2 changed files with 2 additions and 2 deletions

View File

@ -17,7 +17,7 @@ flipPath = {!!}
doubleCover : Type doubleCover : Type
doubleCover x = {!!} doubleCover x = {!!}
endPtOfTrue : (p : base base) doubleCover base endPtOfTrue : base base doubleCover base
endPtOfTrue p = {!!} endPtOfTrue p = {!!}
Refl≢loop : Refl loop Refl≢loop : Refl loop

View File

@ -28,7 +28,7 @@ doubleCover : S¹ → Type
doubleCover base = Bool doubleCover base = Bool
doubleCover (loop i) = flipPath i doubleCover (loop i) = flipPath i
endPtOfTrue : (p : base base) doubleCover base endPtOfTrue : base base doubleCover base
endPtOfTrue p = endPt doubleCover p true endPtOfTrue p = endPt doubleCover p true
Refl≢loop : Refl loop Refl≢loop : Refl loop