# Structure finite_mapLib

signature finite_mapLib =
sig
include Abbrev
(*Expands FEVERY into a conjunction
``FEVERY P (FEMPTY |+ (x1, y1) |+ (x2, y2) |+ (x3, y3) |+ (x4, y4))``
gets for example expanded to
|- FEVERY P (X |+ (x1,y1) |+ (x2,y2) |+ (x3,y3) |+ (x4,y4)) <=>
P (x4,y4) /\
(~(x3 = x4) ==> P (x3,y3)) /\
(~((x2 = x3) \/ (x2 = x4)) ==> P (x2,y2)) /\
(~((x1 = x2) \/ (x1 = x3) \/ (x1 = x4)) ==> P (x1,y1))
*)
val fevery_EXPAND_CONV : Abbrev.conv
(*Simplies fupdate - sequences by removing the ones that are masked by
later appearances.
``f |+ (x1, y1) |+ (x2, y2) |+ (x1, y3) |+ (x4, y4)``
gets for example simplied to to
|- (f |+ (x1, y1) |+ (x2, y2) |+ (x1, y3) |+ (x4, y4)) =
(f |+ (x2, y2) |+ (x1, y3) |+ (x4, y4))
*)
val fupdate_NORMALISE_CONV : Abbrev.conv
val add_finite_map_compset : computeLib.compset -> unit
end

*HOL 4, Trindemossen-1*