fact: Definition set_backlink (bl :Backlinks.t) (f : Location) (pivot : Location) (dgs: LocSet.t) : Backlinks.t := match Backlinks.get bl f with | None => Backlinks.update bl f (LocDict.singleton pivot dgs) | Some amdict => let amdict' := LocDict.update amdict pivot dgs in Backlinks.update bl f amdict' end.
imports: Coq(List) JML(Stack) Coq(ListSet) Coq(Bool) Coq(ZArith) Coq(Relation_Operators) JML(ListHelpers) Coq(Classical) Coq(DecidableType) Coq(FSetInterface) Coq(FSetProperties) Coq(FSetEqProperties) Coq(FSetFacts) Coq(Sumbool) Coq(Lia)