remove duplicates

Author: williamdemeo

src/Ledger/Dijkstra/Specification/Transaction.lagda.md

@@ -291,14 +291,6 @@ could be either of them.
     field TxIdOf    : A → TxId
   open HasTxId    ⦃...⦄ public
 
-  record HasSpendInputs {a} (A : Type a) : Type a where
-    field SpendInputsOf : A → ℙ TxIn
-  open HasSpendInputs ⦃...⦄ public
-
-  record HasReferenceInputs {a} (A : Type a) : Type a where
-    field ReferenceInputsOf : A → ℙ TxIn
-  open HasReferenceInputs ⦃...⦄ public
-
   record HasFees? {a} (A : Type a) : Type a where
     field FeesOf? : A → Maybe Fees
   open HasFees? ⦃...⦄ public
@@ -392,18 +384,6 @@ could be either of them.
     HasSubTransactions-TopLevelTx : HasSubTransactions TopLevelTx
     HasSubTransactions-TopLevelTx .SubTransactionsOf = TxBody.txSubTransactions ∘ TxBodyOf
 
-    HasSpendInputs-TxBody : HasSpendInputs (TxBody txLevel)
-    HasSpendInputs-TxBody .SpendInputsOf = TxBody.txIns
-
-    HasSpendInputs-Tx : HasSpendInputs (Tx txLevel)
-    HasSpendInputs-Tx .SpendInputsOf = SpendInputsOf ∘ TxBodyOf
-
-    HasReferenceInputs-TxBody : HasReferenceInputs (TxBody txLevel)
-    HasReferenceInputs-TxBody .ReferenceInputsOf = TxBody.refInputs
-
-    HasReferenceInputs-Tx : HasReferenceInputs (Tx txLevel)
-    HasReferenceInputs-Tx .ReferenceInputsOf = ReferenceInputsOf ∘ TxBodyOf
-
     HasTxId-Tx : HasTxId (Tx txLevel)
     HasTxId-Tx .TxIdOf = TxBody.txId ∘ TxBodyOf