From 5242aa340a3cdebce46f47b932b563aad55401e9 Mon Sep 17 00:00:00 2001
From: ADAM David Alan Martin <adam@recursive.engineer>
Date: Thu, 21 Mar 2024 16:13:30 -0400
Subject: [PATCH] Tuple concatenation.

---
 Meta/tuple_cat.h | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 Meta/tuple_cat.h

diff --git a/Meta/tuple_cat.h b/Meta/tuple_cat.h
new file mode 100644
index 0000000..79f7079
--- /dev/null
+++ b/Meta/tuple_cat.h
@@ -0,0 +1,24 @@
+static_assert( __cplusplus > 2020'99 );
+
+#pragma once
+
+#include <Alepha/Alepha.h>
+
+#include <tuple>
+
+#include <Alepha/type_lisp.h>
+
+namespace Alepha::Hydrogen::Meta  ::detail::  tuple_cat_m
+{
+	inline namespace exports
+	{
+		template< typename Left, typename Right >
+		using tuple_cat_t= tuple_from_list_t< list_cat_t< list_from_tuple_t< Left >, list_from_tuple_t< Right > > >;
+	}
+}
+
+namespace Alepha::Hydrogen::Meta::inline exports::inline tuple_cat_m
+{
+	using namespace detail::tuple_cat_m::exports;
+}
+