anchor.diff:  and is_meta_qualifier aq =
     match aq with
     | Some (Meta _) -> true
  -  | _ -> false
  -
  -and is_binder_annot b = match b.b with
  -  | Annotated _ -> true
     | _ -> false
   
   (* is_atomic is true if the binder must be parsed atomically *)
  
positive.code:             (p_trigger trigger))) term_doc)
    | _ -> p_simpleTerm ps pb e
  
  and alt_p_typ style ps pb e = with_comment (alt_p_typ' style ps pb) e e.range "!41"
  
  and alt_p_typ' style ps pb e = p_tmArrow style p_tmFormula e
  
  and p_quantifier e = match e.tm with
      | QForall _ -> str "forall"
  
negative.code:           has_attrs = false;
            is_fsdoc = false })
    | Val(lid, t) ->
      group <| str "val" ^^ space ^^ p_lident lid ^^
        (if all_binders_annot t then
           space ^^ (p_typ_top (Binders (4,0)) false false t)
         else
           group (colon ^^ space ^^ p_typ_top (Arrows (2,2)) false false t))
      (* KM : not exactly sure which one of the cases below and above is used for 'assume val ..'*)
    | Assume(id, t) ->
      let decl_keyword =
  