diff --git a/src/Elmish.WPF/Binding.fs b/src/Elmish.WPF/Binding.fs
index d3c07694..f74f4ba6 100644
--- a/src/Elmish.WPF/Binding.fs
+++ b/src/Elmish.WPF/Binding.fs
@@ -116,6 +116,13 @@ module Binding =
       OneWayToSource.id
       |> createBindingT
 
+
+  module OneWaySeqT =
+
+    let id itemEquals (getId: 'a -> 'id) : string -> Binding<_, 'msg, _> =
+      OneWaySeq.create itemEquals getId
+      |> createBindingT
+
   /// <summary>
   ///   Strongly-typed bindings that update both ways
   /// </summary>