<yukon:~/metaprl/editor/ml 17>./mp
# #use "tutorial.ml";;
# load "fol_not";;
- : unit = ()
# cd "fol_not";;
- : string = "/fol_not"
# ls ();;
Theory listing for package: fol_not; path: /fol_not
Implementation:
    include Fol_false
    include Fol_implies
    open Mp_resource
    open Refiner.Refiner.RefineError
    declare Fol_not!not{'A}
    prec prec_not
    dform not_df : prec[prec_not] :: parens ::  Fol_not!not{'A} = A
     rewrite unfold_not (A)  (A  False)
    # rule not_type H : [ext] H  A type  [ext] H  (A) type
    # rule not_intro H x :
        [ext] H  A type 
        [ext] H; x: A  False 
        [ext] H  A
    # rule not_elim H J :
        [ext] H; x: A; J[x]  A 
        [ext] H; x: A; J[x]  C[x]
    let d_not_type = ...
    let not_type_term = ...
    let d_resource = ...
    let d_not = ...
    let not_term = ...
    let d_resource = ...
    Summary!id[820346913:n]
- : unit = ()
# 
