;;; Strategies for proving Fretish_MTL

(defstep fretex ()
    (then 
     (repeat (expand "semantic_rel"))
     (expand* "check_fretish_req_semantics" "fret_requirement_semantics" "fret_afteruntil_semantics" "fret_afteruntil_semantics" "Scope_fun" "Timing_fun" "Condition_fun"
                "scope_def" "trigger")   
    )
    ""
    "")

;;;(defstep propernil (intervals:proper_NIL?)
 ;;;   (then 
  ;;;   (typepred "intervals")(expand "proper_NIL?")(flatten)(lemma "every_forall")(inst? -1)(assert)(hide -2 -3)  
  ;;;  )
  ;;;  ""
  ;;;  "")
