src/CCL/Type.thy

   "@*"          :: "[i set, i set] => i set"            ("(_ */ _)" [56, 55] 55)
   "@Subtype"    :: "[idt, 'a set, o] => 'a set"         ("(1{_: _ ./ _})")
 
 translations
   "PROD x:A. B" => "Pi(A, %x. B)"
+  "A -> B"      => "Pi(A, _K(B))"
   "SUM x:A. B"  => "Sigma(A, %x. B)"
+  "A * B"       => "Sigma(A, _K(B))"
   "{x: A. B}"   == "Subtype(A, %x. B)"
 
 rules
 
   Subtype_def "{x:A.P(x)} == {x.x:A & P(x)}"

 end
 
 
 ML
 
-val parse_translation =
-  [("@->", ndependent_tr "Pi"),
-   ("@*", ndependent_tr "Sigma")];
-
 val print_translation =
   [("Pi", dependent_tr' ("@Pi", "@->")),
    ("Sigma", dependent_tr' ("@Sigma", "@*"))];