Sign in
◑
Theme
fuchsia
/
third_party
/
github.com
/
leanprover
/
lean4
/
refs/heads/upstream/replicate
/
.
/
tests
/
lean
/
evalWithMVar.lean
blob: 04d4a7131bb0355d9c96c70e84b38b006dde8af9 [
file
] [
edit
]
def
c
{α}
:
Sum
α
Nat
:=
Sum
.
inr
10
def
Sum
.
someRight
{α
β}
(
s
:
Sum
α
β)
:
Option
β
:=
match s
with
|
Sum
.
inl _
=>
none
|
Sum
.
inr b
=>
some b
#check Sum.someRight c
#eval Sum.someRight c
#check Sum.someRight (s := c)
#check c.someRight