blob: 25257644a6aea2b4e3d7100e6442bfc61580e0ae (
plain)
1
2
3
4
5
6
|
Goal forall b : bool, match b as b' return if b' then True else True with true => I | false => I end = match b as b' return if b' then True else True with true => I | false => I end.
intro.
lazymatch goal with
| [ |- context[match ?b as b' in bool return @?P b' with true => ?t | false => ?f end] ]
=> change (match b as b' in bool return P b' with true => t | false => f end) with (@bool_rect P t f b)
end.
|
