fact: Structure heapeq lh rh r (D : def rh) (I : lh :+ r = rh) := HeapEq { dummy : trigger; prop : Prop; proof : prop }.
imports: mathcomp(ssreflect ssrfun ssrbool ssrnat seq eqtype) LemmaOverloading(prelude prefix heaps terms)