(* Title: HOLCF/Lift.thy ID: $Id$ Author: Oscar Slotosch Copyright 1997 Technische Universitaet Muenchen *) Lift = Lift3 + instance lift :: (term)flat (ax_flat_lift) default pcpo end