File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -6,7 +6,7 @@ open import Data.Empty using (⊥)
66open import Data.Product as Product using (Σ; _×_; ∃-syntax; _,_)
77open import Data.Sum as Sum using (_⊎_; inj₁; inj₂)
88
9- open import Relation.Nullary.Negation renaming (¬_ to never )
9+ open import Relation.Nullary.Negation renaming (¬_ to negate )
1010open import Relation.Binary.PropositionalEquality as Eq using (_≡_; refl; cong; sym; trans)
1111open Eq.≡-Reasoning
1212
@@ -68,7 +68,7 @@ Nonconst : Prop F → Set
6868Nonconst p = Satisfiable p × Falsifiable p
6969
7070Nonconst' : Prop F → Set
71- Nonconst' p = never (Const p)
71+ Nonconst' p = negate (Const p)
7272
7373Nonconst→Nonconst' : ∀ {p} → Nonconst p → Nonconst' p
7474Nonconst→Nonconst' {p} (_ , (a , a-makes-false)) (inj₁ taut ) = NonContradiction' p a (taut a) a-makes-false
You can’t perform that action at this time.
0 commit comments