equal
deleted
inserted
replaced
1 open Solve IOA Asig; |
1 (* Title: HOL/IOA/meta_theory/Solve.ML |
|
2 ID: $Id$ |
|
3 Author: Tobias Nipkow & Konrad Slind |
|
4 Copyright 1994 TU Muenchen |
|
5 |
|
6 Weak possibilities mapping (abstraction) |
|
7 *) |
|
8 |
|
9 open Solve; |
2 |
10 |
3 val SS = SS addsimps [mk_behaviour_thm,trans_in_actions]; |
11 val SS = SS addsimps [mk_behaviour_thm,trans_in_actions]; |
4 |
12 |
5 goalw Solve.thy [is_weak_pmap_def,behaviours_def] |
13 goalw Solve.thy [is_weak_pmap_def,behaviours_def] |
6 "!!f. [| IOA(C); IOA(A); externals(asig_of(C)) = externals(asig_of(A)); \ |
14 "!!f. [| IOA(C); IOA(A); externals(asig_of(C)) = externals(asig_of(A)); \ |