File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -97,9 +97,9 @@ private
9797 strict : ∀ {x y} → x ≤[ K ] y → Related K x y
9898 non-strict : ∀ {x y} → x ≤ y → Related K x y
9999
100- NonStrict : ∀ {x y} → Related ⊤ x y → Type
101- NonStrict (strict _) = ⊥
102- NonStrict (non-strict _) = ⊤
100+ Non-strict : ∀ {x y} → Related ⊤ x y → Type
101+ Non-strict (strict _) = ⊥
102+ Non-strict (non-strict _) = ⊤
103103
104104 Strict : ∀ {K : Type r'} {x y} → Related K x y → Type
105105 Strict (strict _) = ⊤
@@ -108,7 +108,7 @@ private
108108begin-≤[_]_ : ∀ {x y} (K : Type r') (x<y : Related K x y) → {Strict x<y} → x ≤[ K ] y
109109begin-≤[ K ] (strict x<y) = x<y
110110
111- begin-≤_ : ∀ {x y} (x≤y : Related ⊤ x y) → {NonStrict x≤y} → x ≤ y
111+ begin-≤_ : ∀ {x y} (x≤y : Related ⊤ x y) → {Non-strict x≤y} → x ≤ y
112112begin-≤ (non-strict x≤y) = x≤y
113113
114114step-< : ∀ {K : Type r'} x {y z} → x ≤[ K ] y → Related K y z → Related K x z
You can’t perform that action at this time.
0 commit comments