max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

feat: missing instance

Browse source
This commit is contained in:
Leonardo de Moura 2020-01-28 14:09:04 -08:00
parent a9c06230b2
commit 2df230e7a8
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Init/Coe.lean
View file

@ -64,6 +64,9 @@ instance coeSortTrans {α : Sort u} {β : Sort v} {δ : Sort w} (a : α) [CoeT
instance boolToProp : Coe Bool Prop :=
{ coe := fun b => b = true }
instance coeDecidableEq (x : Bool) : Decidable (coe x) :=
inferInstanceAs (Decidable (x = true))
instance decPropToBool (p : Prop) [Decidable p] : CoeDep Prop p Bool :=
{ coe := decide p }