fact: Definition eval_fact i f := match f with | eqH h1 h2 => interp i h1 = interp i h2 | eqD d1 d2 => d1 = d2 | eqX x1 x2 => plook i x1 = plook i x2 end.
imports: mathcomp(ssreflect ssrbool ssrnat ssrfun eqtype seq) LemmaOverloading(prelude prefix perms heaps)