a2e467eb32
stop as soon as `lhs` and `rhs` are definitionally equal, and avoid unnecessary case analysis. This commit fixes the last issue exposed by #1074 fixes #1074
5 lines
179 B
Text
5 lines
179 B
Text
Brx.interp._eq_1 : ∀ (n z : Term) (H_2 : Brx (Term.id2 n z)),
|
|
Brx.interp H_2 =
|
|
let x := (_ : True ∧ Brx z);
|
|
match x with
|
|
| (_ : True ∧ Brx z) => Brx.interp Hz
|