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.Unit renaming ( Unit to ⊤ )
|
||||
open import Cubical.Data.Bool
|
||||
open import Cubical.Data.Bool using (Bool ; true ; false)
|
||||
open import Cubical.Foundations.Prelude
|
||||
|
||||
true≢false' : true ≡ false → ⊥
|
||||
true≢false' h = transport ⊤≡⊥ tt where
|
||||
true≢false : true ≡ false → ⊥
|
||||
true≢false h = transport ⊤≡⊥ tt where
|
||||
|
||||
propify : Bool → Type
|
||||
propify false = ⊥
|
Binary file not shown.
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user