fact: Definition facttp := forall x : nat, @STspec unit nat (fun => (fun i => True, fun v m => if v is Val w then w = fact x else False)).
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) pcm(options axioms pred prelude) pcm(pcm unionmap heap) htt(domain)