added Quest0SideQuests/TrueNotFalse.agda
This commit is contained in:
parent
a12e754c23
commit
3fe0981c07
9
1FundamentalGroup/Quest0SideQuests/TrueNotFalse.agda
Normal file
9
1FundamentalGroup/Quest0SideQuests/TrueNotFalse.agda
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
module 1FundamentalGroup.Quest0SideQuests.TrueNotFalse where
|
||||||
|
|
||||||
|
open import Cubical.Data.Empty
|
||||||
|
open import Cubical.Data.Unit renaming ( Unit to ⊤ )
|
||||||
|
open import Cubical.Data.Bool using (Bool ; true ; false)
|
||||||
|
open import Cubical.Foundations.Prelude
|
||||||
|
|
||||||
|
true≢false : true ≡ false → ⊥
|
||||||
|
true≢false = {!!}
|
@ -1,12 +1,12 @@
|
|||||||
module 1FundamentalGroup.Quest0SideQuests.SideQuest0 where
|
module 1FundamentalGroup.Quest0SideQuests.TrueNotFalseSolutions where
|
||||||
|
|
||||||
open import Cubical.Data.Empty
|
open import Cubical.Data.Empty
|
||||||
open import Cubical.Data.Unit renaming ( Unit to ⊤ )
|
open import Cubical.Data.Unit renaming ( Unit to ⊤ )
|
||||||
open import Cubical.Data.Bool
|
open import Cubical.Data.Bool using (Bool ; true ; false)
|
||||||
open import Cubical.Foundations.Prelude
|
open import Cubical.Foundations.Prelude
|
||||||
|
|
||||||
true≢false' : true ≡ false → ⊥
|
true≢false : true ≡ false → ⊥
|
||||||
true≢false' h = transport ⊤≡⊥ tt where
|
true≢false h = transport ⊤≡⊥ tt where
|
||||||
|
|
||||||
propify : Bool → Type
|
propify : Bool → Type
|
||||||
propify false = ⊥
|
propify false = ⊥
|
Binary file not shown.
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user