Added a multi-sig validator at Agora.MultiSig

bench/Main.hs

@@ -16,6 +16,10 @@ import Agora.AuthorityToken (
   AuthorityToken (AuthorityToken),
   authorityTokenPolicy,
  )
+import Agora.MultiSig (
+  MultiSig (..),
+  multiSigValidator,
+ )
 import Agora.SafeMoney (LQ)
 import Agora.Stake (
   Stake (Stake),
@@ -34,9 +38,16 @@ benchmarks =
   benchGroup
     "full_scripts"
     [ bench "authorityTokenPolicy" $ authorityTokenPolicy authorityToken
+    , bench "multiSigValidator" $ multiSigValidator multiSig
     , bench "stakePolicy" $ stakePolicy (Stake @LQ)
     , bench "stakeValidator" $ stakeValidator (Stake @LQ)
     ]
 
 authorityToken :: AuthorityToken
 authorityToken = AuthorityToken (Value.assetClass "" "")
+
+multiSig :: MultiSig (s :: S)
+multiSig = MultiSig
+  { keys = PSNil
+  , minSigs = 0
+  }