rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

qty lub is total actually (usually ω)

Browse source
This commit is contained in:
rhiannon morris 2023-05-12 17:28:29 +02:00
parent ba755a9c4b
commit f6abf084b3
2 changed files with 12 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/Quox/Syntax/Qty.idr
View file

@ -83,10 +83,11 @@ compat pi rh = pi == rh
||| "π ∨ ρ"
|||
||| returns some quantity τ where π ≤ τ and ρ ≤ τ, if one exists.
||| returns a quantity τ with π ≤ τ and ρ ≤ τ.
||| if π = ρ, then it's that, otherwise it's ω.
public export
lub : Qty -> Qty -> Maybe Qty
lub p q = Just $ if p == q then p else Any
lub : Qty -> Qty -> Qty
lub p q = if p == q then p else Any
||| to maintain subject reduction, only 0 or 1 can occur