pass the subject quantity through equality etc

in preparation for non-linear η laws

exe/Main.idr

@@ -23,9 +23,9 @@ die : Doc Opts -> IO a
 die err = do putDoc err; exitFailure
 
 private
-prettySig : {opts : _} -> Name -> Definition -> Eff Pretty (Doc opts)
+prettySig : Name -> Definition -> Eff Pretty (Doc Opts)
 prettySig name def = do
-  qty  <- prettyQty def.qty.fst
+  qty  <- prettyQty def.qty.qty
   name <- prettyFree name
   type <- prettyTerm [<] [<] def.type
   hangDSingle (hsep [hcat [qty, !dotD, name], !colonD]) type