Work in Progress

Src/Myc.Signals.pas

@@ -77,7 +77,7 @@ type
         class operator Initialize(out Dest: TState);
         class operator Implicit(const A: IState): TState; overload;
         class operator Implicit(const A: TState): IState; overload;
-
+        class operator Add(const A, B: TState): TState;
         class function All(const States: TArray<TState>): TState; static;
         class function Any(const States: TArray<TState>; Count: Integer = 1): TState; static;
 
@@ -271,6 +271,11 @@ begin
     Result := FState.IsSet;
 end;
 
+class operator TState.Add(const A, B: TState): TState;
+begin
+    Result := All([A, B]);
+end;
+
 class operator TState.Implicit(const A: TState): IState;
 begin
     Result := A.FState;