fact: Definition encode_SensorData_Spec (val : SensorType) := encode_enum_Spec SensorTypeCode {| bindex := SensorIDs[@SumType_index _ val]; indexb := {| ibound := SumType_index _ val; boundi := @eq_refl _ _ |} |} Then encode_SumType_Spec (B := bin) (cache := cache) SensorTypes (icons (encode_nat_Spec 8) (icons (encode_nat_Spec 8) inil)) val Done.
imports: Coq.Strings.Ascii Coq.Bool.Bool Coq.Lists.List Coq.Structures.OrderedType Fiat.Narcissus.BinLib.Core Fiat.Narcissus.Common.Specs Fiat.Narcissus.Common.Compose Fiat.Narcissus.Common.ComposeOpt Fiat.Narcissus.Automation.Solver Fiat.Narcissus.Lib2.WordOpt Fiat.Narcissus.Lib2.NatOpt Fiat.Narcissus.Lib2.StringOpt Fiat.Narcissus.Lib2.EnumOpt Fiat.Narcissus.Lib2.FixListOpt Fiat.Narcissus.Lib2.SumTypeOpt Fiat.Common.SumType Fiat.Examples.Tutorial.Tutorial Fiat.Examples.DnsServer.DecomposeEnumField Fiat.QueryStructure.Automation.AutoDB Fiat.QueryStructure.Implementation.DataStructures.BagADT.BagADT Fiat.QueryStructure.Automation.IndexSelection Fiat.QueryStructure.Specification.SearchTerms.ListPrefix Fiat.QueryStructure.Automation.SearchTerms.FindPrefixSearchTerms Fiat.QueryStructure.Automation.MasterPlan Fiat.Examples.HACMSDemo.DuplicateFree Fiat.Examples.HACMSDemo.HACMSDemo Bedrock.Word Bedrock.Memory