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

0∨1 is not undefined it's ω

Browse source
This commit is contained in:
rhiannon morris 2023-04-17 21:41:10 +02:00
parent 6428d39ce1
commit 682965eebd
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -81,15 +81,12 @@ compat pi Any = True
compat pi rh = pi == rh compat pi rh = pi == rh
||| "π ∧ ρ" ||| "π ∨ ρ"
||| |||
||| returns some quantity τ where π ≤ τ and ρ ≤ τ, if one exists. ||| returns some quantity τ where π ≤ τ and ρ ≤ τ, if one exists.
public export public export
lub : Qty -> Qty -> Maybe Qty lub : Qty -> Qty -> Maybe Qty
lub p q = lub p q = Just $ if p == q then p else Any
if p == Any || q == Any then Just Any
else if p == q then Just p
else Nothing
||| to maintain subject reduction, only 0 or 1 can occur ||| to maintain subject reduction, only 0 or 1 can occur