fact: Definition init_field_value (f : Field) : Value := match FIELD.initValue f with | Some (int z)%jml => Num (I (Int.const z)) | Some (true')%jml => Bool True | Some (false')%jml => Bool False | Some null => Null | _ => init_value (FIELDSIGNATURE.type (FIELD.signature f)) end.
imports: Coq(List) Coq(Relation_Operators) Coq(DecidableType) Coq(FSetInterface)