Simplify case
- Remove unreachable branches.
 - Remove 
caseif there is only one branch. - Merge most common branches using 
Alt.default. 
Equations
- (Lean.IR.Decl.fdecl f xs type b info).simpCase = (Lean.IR.Decl.fdecl f xs type b info).updateBody! b.simpCase
 - d.simpCase = d