-interpretation "sequence" 'sequence \eta.x = (mk_seq _ x).
-interpretation "sequence element" 'sequence_appl s i = (fun_of_seq _ s i).
+interpretation "sequence" 'sequence \eta.x = (mk_seq ? x).
+interpretation "sequence element" 'sequence_appl s i = (fun_of_seq ? s i).