mirror of
https://github.com/Smaug123/agdaproofs
synced 2025-10-17 09:28:40 +00:00
Cleanup finset and modulo (#92)
This commit is contained in:
@@ -80,3 +80,7 @@ cancelInequalityLeft {a} {succ b} {succ c} pr = succPreservesInequality q'
|
||||
q = canFlipMultiplicationsInIneq {b} {a} {c} {a} p
|
||||
q' : b <N c
|
||||
q' = cancelInequalityLeft {a} {b} {c} q
|
||||
|
||||
<NProp : {a b : ℕ} → .(a <N b) → a <N b
|
||||
<NProp {zero} {succ b} a<b = succIsPositive _
|
||||
<NProp {succ a} {succ b} a<b = succPreservesInequality (<NProp (canRemoveSuccFrom<N a<b))
|
||||
|
Reference in New Issue
Block a user