anchor.diff:                  false -> Min = MinProperties - length(ReqProps)
               end,
               Max = MaxProperties - length(ReqProps),
  -
               
               ?LET({PatternGen,AdditionalGen}, {create_patterns(PatternProperties),[]},
                    ?LET(Optionals, 
  -                      choose_properties(OptProps ++ PatternGen ++ AdditionalGen , Min, Max),    
  +                      choose_properties(OptProps ++ lists:concat(PatternGen) ++ AdditionalGen , Min, Max),    
   
                         {
                           struct,
  
positive.code:             %%         AddP = AddSchema
              %% end,
  
  	    ?LOG("Required is: ~p~n",[Required]),
  	    ?LOG("Not Required is: ~p~n",[OptProps]),
              %?LOG("Additional Prop are: ~p~n", [AddP]),
              ?LOG("PatternProperties are: ~p~n",[PatternProperties]),
  
negative.code:                                             Optionals
                          ]
                        }));
          
          %% string
          %%     A JSON string.
  