fact: Definition fact_inv (n acc : ptr) (N : nat) h : Prop := exists n' a': nat, [/\ h = n :-> n' \+ acc :-> a' & (fact_pure n') * a' = fact_pure N].
imports: mathcomp(ssreflect ssrbool ssrnat eqtype seq ssrfun) fcsl(prelude pred pcm unionmap heap) HTT(stmod stsep stlog stlogR)