We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 0e97e2e commit ea7313fCopy full SHA for ea7313f
doc/README/Data/Fin/Relation/Unary/Top.agda
@@ -94,7 +94,7 @@ open WF using (Acc; acc)
94
induct : ∀ {i} → Acc _>_ i → P i
95
induct {i} (acc rec) with view i
96
... | ‵fromℕ = Pₙ
97
- ... | ‵inject₁ j = Pᵢ₊₁⇒Pᵢ j (induct (rec _ inject₁[j]+1≤[j+1]))
+ ... | ‵inject₁ j = Pᵢ₊₁⇒Pᵢ j (induct (rec inject₁[j]+1≤[j+1]))
98
where
99
inject₁[j]+1≤[j+1] : suc (toℕ (inject₁ j)) ≤ toℕ (suc j)
100
inject₁[j]+1≤[j+1] = ≤-reflexive (toℕ-inject₁ (suc j))
0 commit comments