fix: for test vectors, use SetToSequenceSorted (#1034)

Author: ajewellamz

TestVectorsAwsCryptographicMaterialProviders/dafny/TestVectorsAwsCryptographicMaterialProviders/src/VectorsComposition/AllDefaultCmm.dfy

@@ -92,7 +92,7 @@ module {:options "-functionSyntax:4"} AllDefaultCmm {
           encryptDescription := RawAesKeyring,
           decryptDescription := RawAesKeyring,
           encryptionContext := encryptionContext,
-          requiredEncryptionContextKeys := Some(SortedSets.ComputeSetToSequence(requiredEncryptionContextKeys)),
+          requiredEncryptionContextKeys := Some(SortedSets.ComputeSetToOrderedSequence2(requiredEncryptionContextKeys, (a, b) => a < b)),
           reproducedEncryptionContext := Some(reproducedEncryptionContext)
         )
 
@@ -127,7 +127,7 @@ module {:options "-functionSyntax:4"} AllDefaultCmm {
           encryptDescription := RawAesKeyring,
           decryptDescription := RawAesKeyring,
           encryptionContext := encryptionContext,
-          requiredEncryptionContextKeys := Some(SortedSets.ComputeSetToSequence(requiredEncryptionContextKeys)),
+          requiredEncryptionContextKeys := Some(SortedSets.ComputeSetToOrderedSequence2(requiredEncryptionContextKeys, (a, b) => a < b)),
           reproducedEncryptionContext := Some(reproducedEncryptionContext)
         )
 

TestVectorsAwsCryptographicMaterialProviders/dafny/TestVectorsAwsCryptographicMaterialProviders/src/VectorsComposition/AllRequiredEncryptionContextCmm.dfy

@@ -56,17 +56,17 @@ module {:options "-functionSyntax:4"} AllRequiredEncryptionContextCmm {
           encryptDescription := KeyVectorsTypes.RequiredEncryptionContext(
             KeyVectorsTypes.RequiredEncryptionContextCMM(
               underlying := AllDefaultCmm.RawAesKeyring,
-              requiredEncryptionContextKeys := SortedSets.ComputeSetToSequence(requiredEncryptionContextKeys)
+              requiredEncryptionContextKeys := SortedSets.ComputeSetToOrderedSequence2(requiredEncryptionContextKeys, (a, b) => a < b)
             )
           ),
           decryptDescription := KeyVectorsTypes.RequiredEncryptionContext(
             KeyVectorsTypes.RequiredEncryptionContextCMM(
               underlying := AllDefaultCmm.RawAesKeyring,
-              requiredEncryptionContextKeys := SortedSets.ComputeSetToSequence(requiredEncryptionContextKeys)
+              requiredEncryptionContextKeys := SortedSets.ComputeSetToOrderedSequence2(requiredEncryptionContextKeys, (a, b) => a < b)
             )
           ),
           encryptionContext := encryptionContext,
-          requiredEncryptionContextKeys := Some(SortedSets.ComputeSetToSequence(requiredEncryptionContextKeys)),
+          requiredEncryptionContextKeys := Some(SortedSets.ComputeSetToOrderedSequence2(requiredEncryptionContextKeys, (a, b) => a < b)),
           reproducedEncryptionContext := Some(reproducedEncryptionContext)
         )
 
@@ -102,17 +102,17 @@ module {:options "-functionSyntax:4"} AllRequiredEncryptionContextCmm {
           encryptDescription := KeyVectorsTypes.RequiredEncryptionContext(
             KeyVectorsTypes.RequiredEncryptionContextCMM(
               underlying := AllDefaultCmm.RawAesKeyring,
-              requiredEncryptionContextKeys := SortedSets.ComputeSetToSequence(requiredEncryptionContextKeys)
+              requiredEncryptionContextKeys := SortedSets.ComputeSetToOrderedSequence2(requiredEncryptionContextKeys, (a, b) => a < b)
             )
           ),
           decryptDescription := KeyVectorsTypes.RequiredEncryptionContext(
             KeyVectorsTypes.RequiredEncryptionContextCMM(
               underlying := AllDefaultCmm.RawAesKeyring,
-              requiredEncryptionContextKeys := SortedSets.ComputeSetToSequence(requiredEncryptionContextKeys)
+              requiredEncryptionContextKeys := SortedSets.ComputeSetToOrderedSequence2(requiredEncryptionContextKeys, (a, b) => a < b)
             )
           ),
           encryptionContext := encryptionContext,
-          requiredEncryptionContextKeys := Some(SortedSets.ComputeSetToSequence(requiredEncryptionContextKeys)),
+          requiredEncryptionContextKeys := Some(SortedSets.ComputeSetToOrderedSequence2(requiredEncryptionContextKeys, (a, b) => a < b)),
           reproducedEncryptionContext := Some(reproducedEncryptionContext)
         )
   // These are only required encryption context vectors with static aes keyrings