Skip to content

Commit

Permalink
feat(option/basic): add join_eq_none (#6269)
Browse files Browse the repository at this point in the history
  • Loading branch information
fpvandoorn committed Feb 16, 2021
1 parent 781cc63 commit 7a7a559
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions src/data/option/basic.lean
Expand Up @@ -96,6 +96,9 @@ lemma join_ne_none {x : option (option α)} : x.join ≠ none ↔ ∃ z, x = som

lemma join_ne_none' {x : option (option α)} : ¬(x.join = none) ↔ ∃ z, x = some (some z) := by simp

lemma join_eq_none {o : option (option α)} : o.join = none ↔ o = none ∨ o = some none :=
by rcases o with _|_|_; simp

lemma bind_id_eq_join {x : option (option α)} : x >>= id = x.join := by simp

lemma join_eq_join : mjoin = @join α :=
Expand Down

0 comments on commit 7a7a559

Please sign in to comment.