fact: Definition initialise_matrix_spec := DECLARE _initialise_matrix WITH arr : val, old_contents: list (list Z), a: Z, addresses : list val PRE [tptr (tarray tint size), tint] PROP ( writable_share Tsh; Zlength old_contents = size; forall row, In row old_contents -> Zlength row = size; repable_signed a; 0 < size <= Int.max_signed; size * (4 * size) <= Ptrofs.max_signed ) PARAMS ( arr ; Vint (Int.repr a) ) GLOBALS () SEP (@SpaceAdjMatGraph' size CompSpecs Tsh old_contents arr addresses) POST [ tvoid ] PROP () LOCAL () SEP (@SpaceAdjMatGraph' size CompSpecs Tsh (repeat (repeat a (Z.to_nat size)) (Z.to_nat size) ) arr addresses).
imports: CertiGraph.prim.prim_env CertiGraph.priq.priq_arr_specs CertiGraph.graph.MathUAdjMatGraph CertiGraph.graph.SpaceUAdjMatGraph1 CertiGraph.prim.prim1