Implement Tr lifting

Author: heap-coder

src/descriptor/tr.rs

@@ -546,7 +546,13 @@ impl<Pk: MiniscriptKey> Liftable<Pk> for TapTree<Pk> {
 impl<Pk: MiniscriptKey> Liftable<Pk> for Tr<Pk> {
     fn lift(&self) -> Result<Policy<Pk>, Error> {
         match &self.tree {
-            Some(root) => root.lift(),
+            Some(root) => Ok(Policy::Threshold(
+                1,
+                vec![
+                    Policy::KeyHash(self.internal_key.to_pubkeyhash()),
+                    root.lift()?,
+                ],
+            )),
             None => Ok(Policy::KeyHash(self.internal_key.to_pubkeyhash())),
         }
     }

src/policy/mod.rs

@@ -181,7 +181,7 @@ impl<Pk: MiniscriptKey> Liftable<Pk> for Descriptor<Pk> {
             Descriptor::Wpkh(ref wpkh) => wpkh.lift(),
             Descriptor::Wsh(ref wsh) => wsh.lift(),
             Descriptor::Sh(ref sh) => sh.lift(),
-            Descriptor::Tr(ref _tr) => unimplemented!(),
+            Descriptor::Tr(ref tr) => tr.lift(),
         }
     }
 }