fact: Definition fib_tp n x y N := unit -> STsep (fib_inv n x y N, [vfun (res : nat) h => fib_inv n x y N h /\ res = fib_pure N]).
imports: mathcomp(ssreflect ssrbool ssrnat eqtype seq ssrfun) fcsl(prelude pred pcm unionmap heap) HTT(stmod stsep stlog stlogR)